$10 Volume XIV. Numbers 



January 1993 February 



FORTH 

DIMENSIONS 




SILICON COMPOSERS INC 



FAST Forth Native-Language Embedded Computers 



DUP 



>R 




• I i S » -5» ,« • til 





C 



7?> 



Harris RTX 2000"" lB-bit Forth Chip 

*8 or 10 MHz operation and 15 MIPS speed. 

• 1 -cycle 16 X 16 = 32-brt multiply, 
•1 -cycle 14-prioritized InterTupts. 
•two 25&word stack memories. 
•S^hannel I/O bus & 3 timer/ooumtefs. 

SC/FOX PCS {Parallel Coprocessor System) 
•RTX 2000 Industrial PGA CPU; 8 & 10 MHz. 
•System speed optiorts: 6 or 10 MHz. 

•32 KB to 1 MB 0-wait-State static RAM. 

• Full-length PC/XT /AT plug-in (6-layer) board. 

SC/FOX VME SBC (Single Board Computer) 
•RTX 2000 Industrial PGA CPU; 8, 10, 12 MHz. 
•Bus Matster, System Controller, or Bus S^e. 
•Up to 640 KB Owalt-state static RAM. 
•233mm x 1^}mm 6U size (64ayer) board. 

SC/FOX CUB (SIngI* Board Computei) 

•RTX 2000 PLOC or 2001A PLCC chip. 
•System speed options: 8, 10, or 12 MHz. 
•32 KB to 256 KB 0-wait-state SRAM. 
•100mm X 100mm size (4-layef) board. 



SC32"" 32-bit Forth Microprocessor 

•8 or 10 MHz operation and 15 MIPS speed. 
•1-clock cycle instruction execution. 
•Contiguous 16 G8 data and 2 GB code space. 
•Stack depths limlMd only by availalble memory. 
•Bus request/bus grant lines with ort-chip tristate. 

SC/FOX SBC32 (Single Board Computer32) 
•32-bit SC32 industrial grade Forth PGA CPU. 
•System speed options: 8 or 10 MHz. 

• 32 KB to 512 KB 0-wait-State static RAM. 

• 100mm X 160mm Eurocard size (4-tayer) board. 

SC/FOX PCS32 (Parallel Coprocessor Sys) 
•32-bit SC32 industrial grade Forth PGA CPU. 
•System speed options: 8 or 10 MHz. 
•64 KB to t MB 0-wait-state static RAM. 
•FulMengHi PC/XT/AT plug^n (6-layeO board. 

SC/FOX SBC (Single Board Computer) 

•RTX 2000 industrial grade PGA CPU. 

• System speed options: 8, 10, or 12 MHz. 

• 32 KB to 512 KB 0-wait-sta1e static RAM. 

• 100mm X 160mm Eurocard size (4-layer) board. 



For additional product irrtormation and OEM pricing, please contact us at: 
SlUCON COMPOSERS INC 208 California Avenue, Palo AJto, CA 94306 (415) 322-B763 
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Optimization Considerations Charles Cufiey 

Smaller is fasicr, and faster means stiuillcr — ('xce;-)! when it romcs to suhioutinc; vs. indirect 
threading? Tlie auUior optimized Forth for the 68000, stating, "Anything one can get by cranking 
up the clodc speed, one can get by both cranking up the clock speed and by using other 

techniques .." The fifiOOO's rich instniction set and addrcs.'^ing modes make il ripe for sudi 
inijirovemcm.s. 'iTie resLjlts is "a JSIVBSR threaded Forth interpreter/compiler." 

Forth-based Message Service Olaf Meding 

The first-place winner in FUs call for articles about "Forth on a Grand Scale," this paper descritx:s 
the tallest and most sophisticated messaging system in the telephone answering service industry', 
having gainctf 70" i of ilie niarket — and growing. It rotites thousands of telephone trunks lo 
operators, and provides all telephony, mes^ge handfing, database, maintenance, and billing. 
Forth — which is used exdusively — is a key ingredient of this sutxiess ^ory. 

Graphics & Foating Point in Reat-Time Action Mark Smiley 

The author wrote Forth routines to enable his mathematics studies, resulting in tlie rich F-PC 
graphics pac^ge. He discusses its evolution, and an application that grew with it that requires a 
wide range of graphics and Ooating-point ruu lines, as well as a menu system, li provides inicractive 
grapiiics, more-detailed Mandelbrot and Julia sets, zoom, mini-movies; and supports CGA, EGA, 
VGA, and many SVGA boards. Another winning look at "Forth on a Grand Scale." 

Embedded Syst&ns Conferetice John Rible 

Fortii was reprc^iiiued at this year's F,mbedded Systems Conference, where the promoter offered 
a booth to the Forth Interest Group, The goal was to provide information about Forth to people 
outside the current user community. At this ccaiference, that meant showing Forth in embedded 
applications. F()rth \'cndnrs provided rafllc prizes and product demonstrations; volunteers 

coordinated and staffed the outreach event. 

Placing Characters on the Screen C.H. Ting 

The second in a senes ol i 'orth tutorials, this exercise introduces f orth \ ariable,s. By means of an 
apparently trivial task, ilie begirmer is guided into familiarity with the related operators and uses 
them to create a simpler solution than otherwise would have been possible. 

Principles of MetaconyirHation {III} B.J. Rodriguez 

Metacompilation represents Foith's ability lo moid itself to the task at hand, sometimes to the point 
of defying authoritarian strictures in favor of performance and utility. Tt challenges one's expertise; 
maybe il even threatens those who prefer security over the responsible use of power and freedom. 
I il is se ries concludes with discus.sion of t om jiiler directiTOs, defining words, forward referencing, 
and getting a target image into a target system. 
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Perth's continued recognition — for instance, as a tool of choice for engineers, for 
developers of embedded systems, and fnrscientific iastnimentation — is fine, as far as ii gfx-s 
But successful efforts on a larger scale may be less appreciated, perhaps not only because 
they are fewer, but because fliey are less discussed or do not fit the Forth stereotypes. Such 
appIicationsmaybecharacteri/:edbylargeamounLsofccxie,multipleprogrammers, complex 
interface requirements, volume of data, etc. 'llie one iliat llrsi comes Lo mind for many [letjple 
is the international airport implemented in Forth in tlic Middle Eas^ it was talked about at 
tlie cotnferences a few years back, impressing us all with the scope and prestige of thai 
contract The next one most people think of is — 

111 bet mast [x;oplc draw a blank. Maybe the designers, engineers, programmers, and 
managers who work on llicsc things are so absorlxxl in ihc nexi challenge lh;it they aren't 
spending a lot of time bragging. Maybe tht; rt. p< )< is ;iic triu; thai .wme coni[>;inies think of 

Forth as their secret advar^ge, which would explain their silence on the subject if I hadn't 
dined at a certain table at a particular conference, I would never have heanl erf the telephone 
system which, after a few months* protoyping in Forth, had already outstripped a years-long 
effort using other languages. 

As a gestune intended to bring attention to Forth's reliability, maintainability, and efficiency 
in large and/or complex systems, Forth Dimensions s^nd the Forth Interest Group sponsored 
a call for articles about "I-onti on a Grand Scale." Printed in this issue are two entries the 
referees believed tiest addressed the theme, albeit in different ways, Olaf Medjng's firsi-place 
paper discusses Foith's contribution to the commercially successful EVE messaging system. 
Mark Smiley writes about mathematics and ftactals in Forth, We thank them , and are pleased 

to present tfaeir work here. Articles about Forth in big places are always welcome! 

* * * 

With ihat concluded, forth /Xtmmsions is able to announce iLs next contest for Forth 
authors. In keeping with the theme of the upcoming FORML conference, we are seeking 
articles about "Forth Development Environments," The three articles judged best will be paid 

cash prizes, with tJie first- place author receiving $500. Some specific .subjects in keeping with 
that theme (e.g., libraries, user interfaces, source and run-time browscins) arc given in 
FORML's announcement on the back cover o( this issue, alfhotigli authors should not feel 
restricled to that list as long as they address the general theme. Deadline for submissions to 
this contest is August 1, 1993. (See the ad on page 25.) 

it* 

Concluding in tliis issue is Brad Kodriguez' series of articles on nietacompMation. His 
structured presentation of the topic is the most complete and comprehensible I can 
remember. Still, this is the kind of knowledge that only gets burned into our long-term 
memory when we apply it. Besides which, as the author would point out, spedfic choices 
and techniques may be affected by the particular application and environment So re-read 
Brad's three-part series and prepare to take the next step. . . 

...which begins- with this issue's "On the Back Burner," Columnist Russell L, Harris 
presenLs a schematic and parts list for a relatively simple dcvic:e readers can as.scmble 
itiemselves and use to explore the princi()les of metacompilation and embedded program- 
ming, with Harris' continuing guidance in future columns. 

O'.S, Short of takirig an E.E. course or bluffit^ your way in over your head at a new job, 
this is an excellent opportunity to gel hands-an-hardware experience — make the most of it! 
But if you are more interested in programming such devices itian in building them, call llie 
Forth Interest Croup to inquire about the availability and pricc-s of partially or completely 

assembled boards; parts kits might also be offered,) 

* * * 

Gary Smith served long and well as T'Ds "Best of GEnie" columnist, in addition to his Forth 
RoundTable duties on that daiabase/cornrTiunicaiions ser\'ice. He voluniecTed mucfi energy 
and time tracing the threads of interesting and important on-line discussions for our benefit. Gary 
reoendy retired from this activity, and we wish hiin the best Thanks, Gary, foryour contributions! 

— Matiin Ouverson 
Editor 
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Letters to the Editor an to your fellow readerssre always welcome. 
Respond to articles, dose a be your latest projects, ask for input, advise 
the Forth comiwnity, or smply stiare a recent insight. Code is also 
welcome, but is options^. Letters may b&ed^ed for darhy and ImtgS^. We 
wmi to hear from you! 



Wanted; Vlsflble Forth 
I read the letter from Mark Martino C Visible Words & Ugjy 

Complexity," FDXTV/'O wiih interest. As always, Mark's ideas 
are creative and useful. I hope he pursues the idea of creating 
a "visitle" Forth deirelopment environment. \ would like to 
buy such a beastic from him. 

I think Mark's approach would improve Forth documen- 
tation efforts, as well. Using "word boxes" might solve some 
of the issues addressed by Mike Elola in the same issue. (By 
the way, thanks, Mike.) Possibly, the visual environment can 
include Forth help files slaved lo tlie visual word tx ixcvs. 'i his 
would inclucte parameters required by and output by the 
word, examples, etc. 

Thanks for your attention. 

Gus Calabrese, President 
WFT 

4555 liasl l6lh Avenue 
Denver, Colorado 80220 

One Simple Syntax, Flease 
Dear Mr. Ouveison, 

After reading Mike Elola's article ("Styling Forth to Pte- 
serve the Expressiveness of C," FD XIV/4), I just had to 

disagree . This is yet another attempt to i mprove Forth's image 
by turning it into the popular language of the day. We've 
been through this before. Forth as BASIC. Forth as Prolt^ 
Forth as Lisp. Forth as God knows what. 

1 don't consider C's liirec capricious syntaxes an improve- 
ment over Forth's sir^le, simple one. It's richer in the same 
way that government gobbledegook is richer than a 
Heiningway novel. 

In an article recently published in Ihe Computer Journal 
C*57, Sept./Oa. 1992), I explored the Shellsort in depth. As 
part of the sort engine, I wrote the following code: 

: SHELL ( — ) 

SETGflP BEGIN DECGAP 
ITEMS e GAP @ DO 
I DUP S@ SV ! 
BEGIN 

DUP GAP - DUP 0< NOT SWZiP 

S@ SV e > AND 
WHILE 

DUP GAP @ - TUCK S@ SWAP S! 
REPEAT 

SV S SWAP S ! LOOP 
GAP @ 2 < UNTIL ; 

Forlh Dimensions 



I was rather proud to have squeezed it into a .single screen. 
Today, I would have written the same code as: 

: SHLMATCH? ( i — if) \ f- true = no match 
DUP GAP @ - DUP 0< NOT \ Within array? 
SWAP se SV S > AND ; \ Compare 2 array values 

: SHLCTITNEXT ( i — i' ) 

\ Shift value ar.d get r.e.^t index 
DUP GAP 9 - TUCK S3 SWAP S : ; 

: SHLCOMPARE ( i — i ' ) \ i = array index 
BEGIN SHLMATCH? WHILE SHLGETNEXT REPEAT ; 

: PICKUPITEM ( i — ) 
SS SV ! ; 

: INSERIITEM ( i ~ ) 
SV @ SWAP S! ; 

: SHLSHUTTLE ( — ) 
ITEMS @ GAP e DO 

I DUP PICKUPITEM SHLCOMPARE 
INSERTTTEM LOOP ,* 

: ?ENDGAP ( — f ) 
GAP e 2 < ; 

: SHELLSORT ( — ) 
SETGAP BEGIN 

DECGAP SHLSHUTTLE ?ENDGAP UNTIL ; 

Tlie first example is I orth written like Pascal or C. You 
take the pseudocode that oudines the functions and then 
transform it into a giant blob of working code. 

It is typical of the codf^ I wrote bt'forc the big "Aha!" 
Though I can't call it a mystical experience, 1 think I finally 
understand what Charles Moore is driving at as the Forth 
Way. In Forth, the pseudocode becomes the F'orth words. 
These words ate then fleshed out in Forth one-liners. ITie 
words describe the pffoblem and the solution. 

Brodie, in 77}inktng Forth, does a gotxl job of 
explaining Moore's philosophy, but prior experience with 
Pascal or C definitely scrc;ws up the attempt lo think l-'orth. 
If any other la n £;i i a ge a f u i a lly helped me to learn Forth, i t was 
assembler. Tlie pa ra lii gm c jf Forth is a.ssembler, not one of the 
Backus-Naur Algol derivatives. 

I've read complaints that Forth is too primitive, too simple, 
too opea These are precisely die reasons I like Forth. In my 
mind's eye, I can sec ihe code work. 1 don't have to pray to 
the compiler god and hope things work out. 

Let Forth be Forth. 

Yours truly, 

Waller J. Rottenkolber 

P.O. Box 1705 

Mariposa, California 95338 

(Letters caid code coiiiinuc on pugc 35) 
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Optimization 
Considerations 



Charles Curley 
Gillette, Wyoming 



*l*his paper describes a 68000-based JSR/BSR threaded 
Forth inierpreter/conipiler. The compiler compares a vari- 
able and a header field, and either assembles a JSR or BSR to 
a called word, or copies its code in line. Ihc dcfiniilon of ; 
is smart enough to replace a BSR^fSR at the end of a word 
wiLti a JM!' or BRA, as appropriate. Several words which are 
not traditionally immediate become so, such as >R and 
constants. 

The Forth described heiein is FastForth, a full 32-hii Forth 
for the 68000. It is a direct modification of the indireci- 
ttireatleti 'Rcal-Forth. This is, in lurn, a direct descendant of 
fig-Forth. (Remember fig-Forth.') Vocabularies, among other 
things, retain their original flavor. 

For (hcisc not familiar with 32-bit Forihs, memory operators 
with the prefix W operate on word, or 16- bit, memory locations. 

The Imfrilemen^on 

Itis convenuotial wisdom among Forth gurus that smaller 
is fiaster, and fester means smaller. The commcmly accepted 
exccpiinn lo this has lxx*n when it comes Ui siitjrnnline 
ihrcadicig vs. indirect itireading. Here, the traditional argu- 
ment has been that tlic two bytes per call (say, on a PDP- 1 1) 
is worth tlic overhead, compared to four bytes per call. This 
ai^ument is less attractive on an eight-bit processor, such as 
the 6502, where a subroutine call is three bytes, and ilie 
interpreier for the indirea threading is some 14 instmctions. 

'But, if we crank up the dock speed..." someone said. 
Probably <somcone ai Intel, or wilh equal imagination. 

Anyiliing one can get by cranking up the dock spee^ one 
can get by both aanking up the dodc speed and by using 
other techniques, sudi as Ix'tler c ompilers. Orljeiter coding. 
The 68000's rieh itistmciioii set and plentiful supply of 
addressing modes make it ripe for such improvements. 

The tradiiional Forth compiler looks rather like this: 

: INTERPRET 
BEGIN -FIND 
IF ( found) STATE @ < 

IF CFA , ELSE CFA EXECUTE THEN 
ELSE HERE NUMBER DPL 6 1+ 

IF [COMPILE] DLITERAL 

ELSE DROP [C0^1PILE] LITERAL THEN 
THEN ?STACK AGAIN STOP 
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Paleoforth Wrights' will no doubt recognize this as the fig- 
Forth compiler. This system is simple, easy to understand, 
and fast. 

Iiruns a lot faster if parts of it are written in code, of course. 
Wilh a 32-blt data path and 32-bit cxxie fields, optimization 

by assembly language re -coding can go liog wilti on the; 
68000. 1-or example, the word , (comma) becomes; 

CODE , OFUSER DP ARO MOV, 
4 # OFUSER DP ADDQ, 
• ! 2+ *+ BRA, ;C 

(OFUSER is an assetnbler macro which assembles a displace- 
ment from the user area register.) 

Even with this scheme, any word called will still occupy 

four bytes for each call, plus the overhead cjf nc:-:t and ihc 
return code. But even witli tins overhead, many words in the 
nudeus become both smaller and faster. 

A major step is taken when cjne moves from indirecl- 
threaded code to subroutine threading. Whole a.spccis of 
Forth are affected, often in a very subtle maimer. The ccxle 
interpreter can stay the much the same. However, it now calls 
another word to assemble its calls: 



<BSR> 2- HERE - DUP 
IF FF AND 61 CO OR 
ELSE 6100 W, THEN W, 



-80 80 WITHIN 



<SUB> 
\ addr ~ 
HERE OVER 
IF <BSR> 



I coirpile subroutine to addr 
■ -8000 7FFF WITHIN 
ELSE 4EB9 W, , THEN ; 



; INTERPRET 
BEGIN -FIND 
IF { found) STATE @ < 

IF <SUB> ELSE EXECUTE THEN 
ELSE HERE NUMBER DPL 1+ 

IF [COMPILE] DLITERAL 

ELSE DBOP [COMPILE] LITERAL THEN 
THEN 7STACK AGAIN STOP 

1 . 'Fbrtiiwri^ bs1»moawied by AIKreewr.The "paleo' prefixis ^ 
pertrarsion. I also use the tmn "neologst' fisr somecra who crates new 
words. Forth is, afterall, the language for people who Iketoplay with words. 

Forth Dm&nsk)r)s 



<SUB> is now a lot more than , is, and we have added 
a lot to the dictionary^ that wasn't already diere. <SUB> 
calculates whether to use a BSK or JSR instmction, and uses 
the appropriate one. <BSR> is smart enough to use a short 
or long relative call, as needed. 

By making this change, we must ako redefine next. 
Instead of a three-insiruclion (six bytes) macro, we now have 
a one-instruction (two byte) macro. The instruction is, of 
course, RTS. 

Now a reference to a called word may be two bytes, four 
bytes, or six, dcpcndiug on liow far away the caU is. We have 
made next a lot smaller. In the nucleus, there are no six-byte 
calls, and quite a lot of two-byte talis. We have reduced tfie 
size of the nucleus considerably, and gained si>ccd. 

Another innovation is to get dd of the words OBRANCH 
and BRANCH, -wdiich do the woric of controlling flow in 
conditional branches, 'Ihesc, of course, are replaced with 
processor-instruction equivalents. OBRANCH and BRANCH 
occupy six bytes per call, four for the CFA and two for the 
displacement if the branch is taken The processor instruc- 
tions occupy four or six byies each, and ain much faster. 

The relevant code is: 

: OBRAN 201B6700 

( s [+ drO .1 mov, 2 *+ eq bcc, ) 

, W, HERE 2- ,- 
: BRAN 60000000 ( 2 *+ bra, } 

, HERE 2- ; 
: RESOLVE HERE OVER - SWAP W! ; 

r IF 

?COMP OBRAN 2 ; IMMEDIATE 
: THEN 

?COMP 2 ?PA1RS RESOLVE ; IMMEXHATE 
: ELSE 

2 ?PAIRS BRAN 

SWAP 2 [COMPILE] THEN 2 ; IMMEDIATE 
: BEGIN ?COMP HERE 1 ; IMMEDIATE 

I : SBKWD 10000 / HERE ROT SWAP - 

2- PF AND OR W, ; 
I : LBKWD HERE ROT SWAP - 

2- FFFF AND OR ; 
I : BKWD OVER HERE - 2- -7F 7F WITHIN 

IF SBKWD ELSE LBKWD THEN ; 



UNTIL 1 ?PAIRS 

201B W, 67000000 BKWD ; 

AGAIN 1 7PAIRS 

60000000 BKWD ; 

REPEAT 

>R >R [COMPILE] AGAIN 
R> R> 2- [COMPILE] THEN 
WHILE [COMPILE] IF 2+ ; 



IMMEDIATE 
IMMEDIATE 



IMMEDIATE 
IMMEDIATE 



These woicb, again, occupy mure ruoiu in ilic dicUonaiy 
than their predecessors did, but the code compiled by Uieni 
is so much smaller and faster ilial ttjc, overhead is worth it. 
Fortli Dimensions 



Because the 68000 has an efficient instmction set, and 
calls to a wcMrdmay be as many as six bytes long, it is possible 
to have calls to words which occupy more room than the 
word itself. Why not copy the gu ts of such words in line, and 
forget the call? We may or may not save space in die 
dictionary, but we can get rid of the overhead of the call and 
return instructions. This requires a change in the inteipieter: 

: <BSR> REL OFF 2- HERE - 
DUP -80 80 WITHIN 

IF FF AND 6100 OK 

ELSE 6100 W, THEN W, ; 

: <SUB> 

\ addr — | conpile subroutine to addr 

HERE OVER 8000 7FFF WITHIN 

IF <BSR> ELSE 4EB9 M, , THEN ; 

: <COMP> 

\ addr — I subroutine or inline? 
DUP 2- we -DtJP 

IF LENGTH @ 1+ < 

IF HERE OVER 2- W@ DUP ALLOT CMOVE 

ELSE <SUB> THEN 
ELSE <StJB> THEN ; 

: INTERPRET 

BEGIN -FIND 

IF ( found) STATE @ < 

IF <COMP> ELSE EXECUTE THEN 
ELSE HERE NUMBER DPL S H- 

IF [CCMPILE] DLITERAL 

ELSE DROP {COMPILE] LITERAL THEN 
THEN ?STACK AGAIN STOP 

The word <COMP> looks at a field in the word's header, 
the length field. If the contents of the Geld is zero, no copy 
is made — a subroutine is called instead. If the length field is 
less than or equal to ttie currcmt contents of the user variable 
LENGTH, an in-line copy of the target word is made, instead 
of a subroutine caU. If the length field is greater than LENGTH, 
a subroutine call is made in the normal fa,shinn 

The use of a variable to determine the aiiofffor copying 
code allows the programmer to select the best length for such 
copying. For most uses, this is set to six, so dictionary' s'\y.c is 
the main consideration. However, it can be set to any value 
up to 32K, if the user wants to really go for speed. (None of 
this "We're from Microsoft and we know more about your 
application than you do" stuff hereO 

liven if ilic length value for compiling the nucleus is set 
to the reasonable minimum, four, we still gain. Dtrp, for 
example, has one two-byte instruction in it Itshows up about 
70 times in the l-'asU^'onli nucleu.s, for 140 bytes of savings, 
llius, even thougti we have overhead in the nucleus lo copy 
in line, we still come out ahead in nuclear size. Other one- 
instruction, two-byte wyrd^ abound, such as DROP, 

The compiler mu.st know iJie value to whicli it must set 
tJie length field. 'Vhis value is best calculated alter the word 
is fully compiled, so the logical place to do it is in ; . That code 
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looks as follows: 

: lOCE 

HERE LATEST N>C 



- SBTLEN 4E75 W, 



The code to be copied (and henoe the length of the word 
for a^yying purposes) must exclude the return instruction at 

thecnd. So wc make the calculation before adding ifie return. 
We may have a problem, however. Are there circu in- 
stances under wliich it is inadvisable to make an in-line copy 
of a word? Answer, yes. One circumstance is when the source 
word contains a ajlaii ve reference, such as a program counicr 
relative offset. Or a BSK instruction, which is often. That is 
why the word <BSR> sets the user variable BEh (for 
'lelocatable'O to the off state. Thus, the code called by the 
woid ; whichsets the lei^th field in the head, mustcxamine 
BEL. 



NXT REL e 

IF HERE LATEST NX: 

THEN 4E75 W, ; 



- SETLEK 



This code requires that ftic length field be set to mro, 
which i.s done by CREATE. And the relocation indicator must 
be set to its default staie: 

: : ?EXEC !CSP CURRENT 6 CONTEXT ! 
CREATE SMUDGE 
REL ON LATEST N>C 



DP 



The phrase LATEST N>C DP ! is there because CREATE 
sets up a code field pointing to the code for variables, and 
this must be overwritten by a : definitioa This is a by- 
pro dua of the decision to modernize the system by having 
CREATE produce varM>les, instead of the ancient fig- Forth 
practice of havir^ it produce headers for code definitions. 

A gotcha of 68000s is that the 68000 is word-aligned for 
word and long-word mcmnry acce.sses. Thai i.s, either @ must 
pick up data a byie ai a lime and a^semt^le ihe four bytes, or 
it cannot be used on odd addrcvs t elLs, The latter aliernaiivc 
would be incompatible with other Foiths mnning on other 
processors, so the former was selected for Real-Forth, the 
immediate ancestor of FastForth. The result is as follows; 

CODE @ S ( ARO .L MOV, 
\ avoid byte boundary 

ARO [+ S t .B MOV, \ problems 

ARO (+ 1 S S[ -B MDV, 

ARO [+ 2 S &f .B MOV, 

ARO [ 3 S S[ .B MOV, NEXT ;C 

Aside from being ugly, the word takes up 16 bytes in 
memory. It probably will be refeired to a lot by subroutine 

call. However, why not provide both wpcs of memory 
access? A version of @ requiring word alignment produces a 
four-byte word; 

CCDE Ffi \ e from even address only 

S [ ARO MOV, ARO [ S [ MOV, NEXT /C 



'ihis word will invariably be copied in line, l-urUtiecmore, 
it will get used a lot: all variables, user variables, and word 
or long word anays are word aligned. Thus, careful editing 
of the nucleus pnxfuoes a much ^ter nucleus, using fs 
where appropdate. Alas, the nucleus grows— but not niLich, 
Because this word will be copied in line, application 
references to it will produce smaller applications, so the cost 
is well worth it. 

Similar logic produces F 1 from ! : 

CODE F! \ store to even address only 

S [+ ARO MOV, S [+ ARO [ MOV, NEXT ;C 

Can wc squeeze more room out of the nucleus and still 
accelerate things? Well, it .seems a bit absurd for the last 
instniciion in a word Gx" fore next) to be a subroutine call. 
Why not force the call to tecomc a jump? Once execution of 
the called word ends, the return instruction will force 
execution back to the word which called the current word 
The RTS inslruciion may then be omitted from the end of the 
word. This saves us an instniction in the dictionary, and two 
return stack acce.s.'se^ in execution. 

The resulting code gets tricky. There are two circurri- 
stances under which this trick is inadvi.sable: when the la,st 
instruction before the return is not a call, and when a forward 
branch within the word refers to where die RTS would be if 
the re were one. To check for the latter condition, we simply 
examine a variable maintained by the compiler word THEN. 
THEN is now defined as: 

: THEN HERE LASTTHEN F! 

?CaMP 2 ?PAIRS I^SOLVE ; IMMEDIATE 

So we know where the last ^brouline caU was made, the 
compiler now maintains a variable, Lastsub. 

: <st;B> 

\ addr — 1 compile subroutine to addr 
HERE DUP LASTSUB Fl OVER - 
-8000 7FFF WITHDI 

IF <BSR> ELSE 4EB9 W, , THEN ; 
TTie code to make it work all opiates from ;. 

I : DOBSR 

"IF 60 LASTStJB Ffi C! 
ELSE 1 THEN ; 

I : 6SR LASTSUB F@ W@ 4EB9 

= IF 4EF9 LASTSUB FS W! 
ELSE 1 THEN ; 

I : 2SR LASTSUB FS Wg FFOO AND 6100 
DOBSR ; 

I : 4SR LASTSUB FQ Wg 6100 
DOBSR ; 
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\ fl I 1 indicates failure to change 

\ bsr to bra, etc. 

I : LaST? REL Fg 0= HERE 

LATEST N>C - LENGTH F@ 1~ > OR 
IF HERE LftSTSUB F@ - 
DUP 2 = 

IF DROP 2SR 
ELSE DUP 4 = 
IF DROP 4SR 
ELSE 6 = 

IF 6SR ELSE 1 THEN 
THEN THEN 
ELSE 1 THEN ; 



NXT REL Fg 

IF HEBE LATEST »J>C 

4E75 W, ; 



- SBTLEN THEN 



: ; ?COMP ?CSP HERE lASTTHEN - 
IF LAST? 

IF NXT THEN 

ELSE NXT THEN 

SMUDGE [COMPILE] [ ; IMMEDIATE 

Tlic three words 6SR, 4SR, and 2 SReach handle the three 
possible subroutine call instmctions. They do this by munging^ 
the last subroutine call's opcode into a BRA or JMP opcode, 
as appropriate. The word LAST? determines whether to call 
one of these words and. if so, which one. It also returns a flag 
to indicate whether the final RTS instruction should be added 
to the word Also, the whole process is (^passed if there is 
a forward biandi pointing to where the RTS would be. 

This has the effect of giving us a free, zcro-irvstruction 
return, without having to build a custom processor to do it. 

Further Opt i m i zatlons 
One can make further optimizations along the same lines. 
The fig-Forth word lit goes away entirely, to be replaced 
by an in-line literal instruction. For large values, the following 
irjstniciion obtains: 

<value> # s -[ mov. 

For smaller vahies, the MOVQ instruction proi^ useful; 

<value> # drO movq, drO s -[ mov, 

LITERAL ^till HGgistily sute smarO is redefined as 

follows: 



LITERAL STATE F@ 
IF DUP -80 7F WITHIN 
IF FF AND 7000 OR W, 
ELSE 273C W, , THEN 
THEN ; IMMEDIATE 



2700 W, 



Constants can be reworked in a major way. We can 

2. PDP-1 1 hacksr slang for stomping on ttte object code directly. 
Attributed to Mung tl^e Merciless. 
Forth Dimensions 



produce a word which is na relocatable, and therefore 
requites a sudbroutine call for each reference. Instead, we 
make constants into immediate words Q) "n^iidi simply 
produce literab as needed: 

: CONSTANT CREATE IMMEDIATE , 
DOES> F@ [COMPILE] LITERAL ; 

Similar surgery may be committed on variables. 

; ViiJ^.I.iJiLE CREATE , IMtffiDIATE 
DOES> LITERAL ; 

U.scr variables require a more complex ofx^ration at 
compile lime, as they must compile an opcode and the offset 
from the user ptointer (maintained in a register on the 68000). 
In addition, execution at interpretation lime is more complex. 
The resulting word has a hybrid code and high-level ; CODE 
portion. 



W, IMMEDIATE ;CODE 
U AC & [ ( of user state J 



: USER CREATE 

RP E+ ARC MOV, 

TST, NE IF, 

DRO CLR, ARO [ DRO .W MOV, 

DRO S -[ MOV, ]] 41EE W, W, 2708 W, 

\ of user <n> arO mov, arO s -[ mov, 

[ [ ELSE, U DRO MOV, 

ARO [ DRO .W ADD, 

DRO S -[ MOV, THEN, NEXT ;C 

The first two lines of the ; CODE portion examines the user 
variable STATE to determine whether the system is compil- 
ing or interpreting. If the system is compiling, the next two 
lines are executed. 'Ihe offset of the user variable is brought 
into a re^ster, sign extended, and pushed onto the data stack. 
Then high-level words arc executed to comma in the first 
Opcode, 4 lee, the offset (an argument to the first opcode), 
and then finally the second opcode, 2708. This results in the 
assembly in lir»e of the following code fragment 

of user <n> arO mov, arO s - [ mov. 

If the system is not compiling, the actual address of the 
user variable is calculated by adding the offset to the contents 
of the user register. The results are pushed onto the data 
stack. 

In most otiier languages, a lot of hand coding would tx: 
done to malse these compact definitions possible, f-'ortu- 
nately, Real-Forth and FasiForth both provide both an 
assembler and a disasscnibler, so code dcfiiii lions can be 
prototyped and tlie object values detemiined rapidly. Such 
tools are essential for lar^uage de^^opment. 

Another area of optimization is to move llic indices and 
limits of loops into llic C>8000'.s data regisieis. This will 
produce faster and prctoably more compaa code. Osn'i it 
nice to have an adequate supply of regis tc is?) Rather 
arbitrarily, data registers five and six were selected to hold the 
i n de X a nd ll ic I i m i 1, res [x; cti vcl y , { DO ) pus hes these onto the 
return stack, and the loop ending opcratcas pop them off. 
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ASSEMBLER BEGIN, 

2DUP >R >-R 2 # ARO ADDQ, 
RP t+ DR6 MOV, RP t+ DR5 MOV, 

ARO [ JMP, 

CODE (liOOP) 

tl£ 1+ ARO MOV, 1 # DR5 ADDQ, 
LABEL LP2 DR5 DR6 CMP, 

R> R> GT UNTIL, 
LABEL LPS ARO [ RRO .H ADD, 

ARO [ JMP, ;C 

FIXED 
>R >R 

CODE (+LOOP) 
RP [+ ARO MOV, 

S [+ DRO MOV, DRO DR5 ADD, 

DRO TST, PL LP2 *+ BCC, 
DR5 DR6 CMP, LT hPb *+ BCC, 
R> R> AGAIN, ;C FIXED 

\ dr5 : index 

d£6: limit 

CODE (DO) 

RP [ ARO MOV, DR5 RP [ MOV, 
DR6 RP -[ MOV, 

S [+ DR5 MOV, S [+ DR6 MOV, 
ARO [ JMP, ;C FIXED 

Nuclear gurus are reminded lhai lliis is still a fig-Forth 
nucleus, aiKi there are differences in how the loop operators 
worit between fig- Forth and later standards. 

(DO) operates by pushing two iiems from registers onto 
the return stack. In order to do this, it first pops the return 
address into ARO. The loop registers are pushed, and the new 
index and limit are popped from the data stack. An RTS is 
enuilaicd bv jumpii^g indirea through ARO, which holds *e 
return address. 

{ LOOP ) works by comparing the two data registers. In all 
cases, the return address is finst pupfx^d into ARO. If the l(x)p 
is na exhausted, the offset to return lo ihc beginning of the 
loop is added to ARO, and a jump indirect throu^ ABO is 
execuied. If the loop is exhausted, execution branches to tht* 
code fragment ahead of (LOCF) . Ihere, the return address 
is adjusted to skip over Uie oilset. The two data registers aro 
popped from the return stack, and execution is resumed with 
the usual indirect jump through ARO. 

Since we have moved loop indices and limits from ilicir 
traditional places on Uic return stack, index and limit 
operators must also change. I must be recodedr 

CODE I DR5 S -[ MOV, NEXT ;C 

R* can no longer be aliased to I, and must now be a 

separate word 

J and other words wliich access nested loop limits and 
indices must also be rerodcd. J now looks like the old I. 

We also need a way for the Rcal-Forth hackers to twiddle 
the loop index whik: in a loop. For example, (expect) 

3. R§ to you mezo- or neoforthwrights. 
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plays wiSi the loop index v4ien it sees abackspace diarader. 
This is handled by writing the new word I ! , which allows 

su Ificienily unstructured code to be an eyesore. 

CODE I! S [■!■ DR5 MOV, NEXT ;C 
\ use to play w/ index 

: (EXPECT) OVER + OVER 
\ add for Atari/IKi PC keyboard 
DO KEY DUP 14 +ORIGIN W@ = 
OVER 16 +ORIGIN W@ = OR 

IF DROP 08 OVER I - DUP I 2- + 1 1 - 
ELSE DUP OD = 

IF LEAVE DROP BL 
ELSE DUP THEN 
10! I 1+ C! THEN 
EMIT ( DROP) 
LOOP DROP ; 

The Implications 

Such dia^ic surgery on a nucleus has implications 
elsewhere in the nucleus, for application coding and for 
utility code sucli as decompilers. Even orve's oxioeptual view 
of Forth is afibcled. 

The most profound shock, especially for those of us 
accustomed to fig-ForiJi-styled dictionaries, is dial tlie con- 
cepts of the parameter field and code field merge and 
become one. ClWs is not, however, an approach toward a 
Grand Unified Field Theory.) The most disconcerting thing 
for a fig-Forth user is tliat ' and its rclalives can no longer 
return the parameter field. It may or may not be the same as 
the c(xlc field; however, the code field will always exist. So 
' and i IS FastForth brethren now return the code field 
address. 

This changes the family of words used to maneuver in the 
header ofa word to the poiniwheretheyhadtobe renamed. 
They now take tb.cir n;(mrs from the field addre.ssihey ex[X^ct 
and the one they return, hor example, to navigate from the 
code field to the name field, one uses ON. To go the other 
direcii(«i, w>c. 

i liis name change has the benefit of aiding conversion of 
code from Real-Forth (or other Fofths) to FastForth. 
i i\ ward In this family is C>P, used to get from the c:odc 
I field to ihc parameier field, if there is one. This word must 
skip over the iastrucln in at tlie code field, which will be one 
of three possible subroutine calls. This it does by delecting 
which instruction is thete. It works as follows: 

: OP 

( cfa pfa I find parameter field ) 

DUP W@ 6100 = IF 4+ ELSE 
DUP Wg 4EB9 - IF 6 + ELSE 2+ 
THEN THEN ! 

Occasionally one has need to go back die otherway. That 

is .stranger: 

: P>C 

\ pfa — — cfa I jurrp from pseudonfa (pfa) 
\ of a voc to its code field 
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DUP 2- W@ FFOO AND 6100 - 
IF 2- 

ELSE DUP 4- we 6100 " 
IF 4- 

ELSE DUP 6 - W3 4EB9 = 

IF 6 - ELSE ABORT" bad link" 
THEaj THEN THEN ; 

P>C tnakcs gucsscH alxjui which iiisLrucUon was used, 
and wlicrc iL would be it il liad been used. 'Ihis word is not 
in the nucleus, Ixtause il is used so rarely. It was originally 
ctxistmcted \o allow vocabulaiy-traveising code to piint out 
the names of the vocabularies in die sys^m as it traversed the 
linked list of vocabularies. 

Another conceptual change will hit the Forth nucleus 
gum or the person who does much assembly language 
progra mining under I't)rth. Tliis is thai ihc IP and W registers 
have moved. The Torih instruction poinier is now liie 
processor's instmction pointer — someu'mes. W is now the first 
cell on the processor stack. Usually. 

For an example of how this works, let's l«ik at an 
intermediate definition of VARIABLE. This was imple- 
mented to ZCL exactly like the indirea-threaded version of 
VARIABLE, and requires a call to each variable. Il has since 
been replaced b> the version given above. Note that the code 
field is set by ihe word CREATE. 

: VARIABLE CREATE , ; 

ASSEMBLER HERE *VARIABLE* I 
RP [+ S -[ MOV, NEXT 

: (CREATE) 

FIRST HERE OAO + tr< 2 ?ERROR 

?ALIGN -Fltro 

IF DROP ON ID. 4 MESSAGE SPACE THEN 
HERE DUP C@ WIDTH F@ MIN 
1+ =CELLS ALLOT 

DUP 80 TOGGLE HERE 1- 80 TOGGLE 

LATEST , CURRENT Fg F! W, 

{ *VARIflBLE* Fe J LITERAL <SUB> ; 

Since the length field of a variable is never changed from 

its initial 7.cro, a!! references to variables are by subroutine. 
This subroutine call places the return address on the stack. 
The first instruction in the variable is another subroutine call, 
to the woiicing code routine for variables. This insuuction 
also places a leturn address on the return stack. But the 
second return address points to the variable's allocated 
storage area, not to code. So all ihc working code has to do 
is pop the addre.ss oif the return stack and push it to the data 
stack. Ttie next instniciion, the RTS, resumes execution at the 
code which called the \^riablc. 

The ability to copy in-line code into a word meaa^ that the 
locations of return stadc items get rather fiizzy. An item is 
going to be somewhere on the return stack, but where 
depends on whether the calling word copied the target word 
in line or not. For example, a subroutine version of R wcaitd 
have to teach over the leturn address to get the value on the 



return stack to be copied. An in-line version would not have 
to skip the return address. 

An in-line version of R is only one instmaion, two bytes. 
It makes sense to copy it in line wherever possible. But it isn't 
always possible: some of us use the return s&idk to store 
tilings at interpretation time: 

BASE @ >R HEX ... R> BASE ! 

The implemcntor could be bloody-minded about the 
whole thing and tell you not to do things like that. Or he could 
have written a set of state-stupid words for use inside 
compiled vvords, and another .set of state-stupid words for 

outside of compilation, and he could have expected you, 
the user, to remember the difference. 

Rut Allah is merciful. Instead, we have three state-smart 
immediate worcLs, R, >R, and R>. For example: 

\ rp [ s -[ mov, => 2717 
CODE R GETJSER STATE TST, 

NE IF, 2717 #L S -I MOV, 
'NF W, *+ BRA, THEN, 

4 RP S [ S - [ MOV, 
NEXT ;C ItMEDIATE 

They all work <in the same mcxiel. If the system is 
compiling, the appropriate opcode is assembled in line with 
W, . Otherwise, a subroutine ^rsion is executed. 

This also means that LENGTH may never be .set so that R 
is called by subroutine. That is, it may never be less than two. 

ETcecution arrays hxve also mueited under FastFOrth. With 
indirect threading, all references to words in the array were 
the same length. Thus, indexing into the array was easy: 
multiply the index liy the size of the reference, add it to the 
base address of the array, fetch the value there, and execute 
it. In32-WtBeal-Fonh, EXECis defmed as follows (except that 
it is done in code): 

; EXEC 4* R> + @ EXECUTE ; 

11x5 r>ew version is a bit more elaborate. The old exec 
mutates into: 

CODE <EXEC> 

\ index | index into execution array 

5 (-I- DRO MOV, 2 # DRO ASL, 
RP [-H ARO MOV, DRO ARO ADD, 
ARO [ ARO MOV, ARO [ JMP, ;C 

And a new compiler directive is added: 

: EXEC COMPILE <E^EC> BEGIN -FIND 
IF ( found) STATE F@ < 

IF , ELSE EXECUTE THEN 
ELSE 7ERR0R 

THEN 7STACK STATE F@ 0= UNTIL ,• 
IMMEDIATE 

EXEC simply com piles a series f/C J.\s in line, until it finds that 
compilation has been turned off, usually by the word STOP. 
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OUier Improvements 

Time is murh work one can to dotn optimizt^ Fa.stFonh. 
Mast ofthe.sc .suggt^stions have hceu (Innc. ai least experi 
mentally. Their implementations and implications will be left 
as an exercise fbr the student There will be a qufe. 

Torward referring branches an be made smart enough to 
make two- or four-byte branches, if one cares to write the 
code to move the intervening code appropriately at branch 
resolution time. 

Since the proces.<>or has a variety of conditional branch 
instructions, why not make the Forth conditional branches 
reflect this? The traditional Forth typically compiles two 
words: one performs a test, the other does the branch. 
Instead, why not make the branch instruction also do the test' 
For example, the phrase 0=" IF might become two in-line 
instructions at compile time, instead of three or more. 

We have seen how to move the indices and limits for 
loops into registers. Why not save moK; time at njn time, and 
tbice (DO) and (LOOP) (and their ilk) to always be copied 
in line,^ This will require changes in the way do and loop 
operate at compile time. 

A maji,)i iinf)ix>\enicut can Ix; made in any FortJi \iy 
changing ilic header stmcture. 'Die traditional fig-Forth 
header structure places the link field after the name field in 
memoiy. Tliis requires dioionary searches to trav erse each 
name field to goto ilie next word in the dicli< )nar>'. liy placing 
the link field before the name field, tlie traverse loop is 
replaced with a single instruction. Since compilation consists 
lasgely of dictionary searches, compilation is greatly speeded. 

Interim Results 

TTiereare plenty of optimiratiotis ycit<.) make in FH.siForth, 
In spite of this, one may make some preliminary assessments. 
The reajlis are not all in, but they are definitely pM:omisif|g. 
For a quick and dirty benchmark, I looked to the Eight 
Queeas problem, as coded by LcVan, Forth Dimensions II/l , 
and modified by Wilson M, Fcderid (GEnic e-mail address 
W.FEDERICD. As I am also using an Atari ST, my results 
compare directly with Mr. Federici's, However, to speed 
things Lip, i made the arrays byte arrays, 
which eliminates a two-plaoe shift, and re- 
placed F@ with c@, I also found that the 
greafrst speeti for an\- given version was 
achieved with I 'asif-'onh's LENGTH set lo 16. 

To Federid's results, I add the final five 
entries: 



' com pil ing t he Fast Forth nucleus, approximately 1 3 kilobytes in 
' sue, iakC3 aboul 120 seconds under Real-Forth. Under 
[■:ts[l "nnh, this improves to under 70 seconds, (,Vs (he .^tari ^'l 
has a real processor, there is enough room to hold the source 
for all this in Perth's local memory, so speed of disk access is 
exduded from considerition.) 

Coacluslons 

Properly done, conversion of a 68000 32-bit Forth from 
indirect-threaded code lo ^broutine-threaded code wall be 
rewarding in both speed improvements and in application- 
and nucleus-size improvements. 'Ihe speed improvements 
were expeaed when the conversion process was batted, as 
was ihe s ma Her nudeus. Tha improved application size was 
a pleasant surprise. 

But the key point is this: howtn^ snappy compilers or 
other tools may help (or tiinder), they are no siihsiitute for 
com fx; tent programming or competent software design. 
They are especially no substitute for good opdmizalion. And 
those are all still arts. 

Availability 

I'ersons wishing to experiment wi tli Fasti'onh may imple- 
ment these techniques on their own target compilere for 
personal u.sc and experimentation, Thasc who wish to mn 
tile complele FastForth package may obtain a beta site copy 
for the Atari ST from the au thor The author will also discuss 
ports to other 680x0 machines and ports to other processors 
wMi interested parties. 



CharlcsCurteyisfilong-iime Forth nuclesv guru who rrves in Wyoming. He earns 
Ns living ai a paralegal so he can afford neoeselties Khe 68O0CM}ased Fonti 
systems and luxuries like food and rent He mar/ be reaclwd at P.O. Box 20f?1, 
GlUetlo. WyDmlnge27t7-2(l!7l. 



F32; 8.90 sec. 

FotST with cms-. 7.23 soc. 
ForST with MACROS; 3.77 sec. 

Real-F'orth 1.3 OIX:): 

LWoelb&2'2' 7,60 sec, 

l.W cells & cell* 7.06 sec. 

byte cells "5. 65 ,<;ec. 
FastForth 2.0 Cf./RTC:): 

LW cells & 2* 2* 4.87 sec. 

byte cells 3.04 sec. 

Compilation times improved. For example, 
ccttnpiling Ihe aiget compiler and then taiga 
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MAKE YOUR SMALL COMPUTSR 

THINK BIG 

(Utr^ ima dain^ ii since m7 <or lau PC, XT^,^ 

; ^ - JUKI nS-%0 nXXMS 1 . 3, 4 & 4P,) v;>,if * 
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applbcattom modules, pCu!^ '.ha farrious MMSFORTI^ conlinu- 
ing sufipon. M<nt moduto include scuics cad& Hnen 
MKtniyift (iee»rwgr»pi»r, savs: "Forth Is Sw 
- ndcKiccmpiJlaraMre Invented to nxC 
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suf TechnijkigiBSi UaXxtc/rt Systems. 
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. ramomMe site license cMts 
and comlwtiWe, rsksMstiMorL Ril[A K. Andiist, aucttof/ 
hisiwtan. soys: 'TOWTWMIBE Ms m conantrata tm my 
manusctipt not the comuter.' Stomd Mmm, Button 
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the best we've seen." 

MMSFORTH System DM tram $va.35 
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Charles Moore, the inventor of Forth, brought a newspa- 
per dipping dated "March Forth" to his keynote address at 
this year's SIG-Forth conference in Kansas Qty, iVlissoud. 
W'hctlicr we "march" or "boldly go," this paper describes 
how Amtelco's EVH CElectronic Video Exdian^) has be- 
came the predominant, largest, and most sophisticated 
messaging .system for the telcplionc answering service O'AS) 
industry. EVE is used not only in every major urban area in 
the United States and Canada, but in Australia and throu^- 
out Thailand. E\T, has gained 70% of the TAS market and is 
Still growing. Forth — which is used exclusively — is a key 
ingredknt of the success story you are about to read 

System Description 
Before focusing on the software architecture, I would like 
to briefly describe EVE. EVE is the center of a telephone 

answering service (.see Figure One). 'Ihirty-two operators 
take messages by phone from callers, and later deliver those 
messages to die dients. In addition to normal business houis, 
messages are frequently taken on weekends, holidays, and 
evenings. Typical clienLs include dociors, small companies, 
business managers, and travelling sales personnel. Typical 
EVE owners include answering services, mail order houses, 
executive suites, and paging services. At Amteico, we use an 
in-house EVE station to handle all field service calls. 

EVE provides all necessary functions needed by a modem 
TAS: telephony functions, paperless message handling, 
client database ClO,0(X) accounus), niaimenance, and client 
billing. EVE routes a few iliousand telephone tmnks to ihiriy- 
two operators. The operators type and retrieve mes^ges into 
the database. EVi-: is capable of handling well over 12,000 
phones calls per day. 

Message can be stored, retrieved, delivered, ardiived, or 
purged. 'Ihcre are a variety of ways in which messages can 
be delivered, i.e., verbally by the operators, remotely printed 
via modems or i-AXcs, and paged i^irough wireless paging 
terminals. Clients can also use a personal computer to log into 
EVE to get their messages. 

An (){xT;ii()r can log in as a siiix'r\ isor to perform system 
maintenance. Sucli tasks include maintaining client account 
informataon, retrieving statistics used for measuring operator 
performance, and client billing. 

In addition, field service personnel can dial into EVE via a 
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modem to monitor all aspects of ifie system, such as locating 
haidwar^ soflwate, and database problems. A nund>er of 
software routines aie available to field service. For example, one 
repaire a broken database. Owners of EVE stations tfiroughout 
the U.SA and Canada have fbm[>ed a very dynamic users groups 
the National Association of EVE owners (NAEO). 

r.Vi: was born ten years ago in 1982, Since then, 17 
programmers have worked on EVE software for a total of 38 
man y&xs. To giire the reader an idea of the size of the EVE 
application, it is comprised of about 100,000 lines of source 
code. The average si^e of the EVI- Software ^'orks program- 
ming team is four full-lime Forth pfogfamun; r';. It is worth 
noting that none of the programmers employed had any 
previous Forth experience. They were hired as full-time 
programmers, not consulianis. With very few exceptions, all 
the programmers were able to master Forth and EVE code, 
and became very successful in their careers. 

Fordk's Contrfljutioii 

Forth is much more than a computer language. Forth is 
a complete programming environment, and even more it is 
a philosophy. The concept of simplidLy is what makes Forth 
so effective and powerful. Interestingly, long after Forth was 
invented, the same concept of simplicity v/zs introduced to 
microproce.ssors through RISC] (reduced instru a ion set com- 
puter) technology, which increases a CPU's throu^put 

Forth uses words. Words are the equivalent of a subroutine 
in C or Pascal. One problem with subroutines is that they tend 
to gel very large (over a page of source code). A Forth word 
is composed on average of five to nine o^r Forth words. 
Because each word has a name, the code becomes highly 
readable in iLself. Even liiuugh die C or Pascal equivalent of 
a Forth word is a subroutine, a Forth word acts more like a 
constant. A small secdon of code is given a name; in laige 
applications, it is important to use words with descripth^ 
names rather than a magical sequence of instructions. 

'ihc freedom and flexibility Forth extends to the program- 
mer is reflected by the versatility and wide range of possible 
EVT station configuratioas (figure One), E\I-: takes full 
advantage of many powerful Eorih features, sucfi as the 
extremely eilident round-robin multi-taskcr and an cxtraor- 
dinarily efficienl dalaba.'ip Rathe r than depending on Oie 
I compiler vendor for cnhancemcnLs ncc:dc<,l to fuillicr de- 
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velop software (as is the case wiih most non-Forth program- 
ming languages), we tailored our Forth environment 
(polyForth by Forth, Inc.) to match ihe underiying hardware 
for maximum code efficiency and execution speed. The 
power of Forth should be evident by the fact that the entire 
EVF software, consisting of up to 84 independent software 
tasks (except for the a.synchronou.s \/0 boards), is nin by a 
single 10 Ml iz 680CW Motorola microprocessor. 

Forth has made it possible to consistently and quickly 
respond to the demand'^ nf our ajstomers and the TAS 
industry. Forth's combined power ol program ruing environ- 
ment, operating system, datal>a,se manager, muki-la.iking, 
complete availability of scarce code, and striking pliilosophy 
of simplicity are the reasons why a .system first develofx;d in 
1982 is still nuinlxjr one in the market. Fortti truly shines in 
rapid prototyping during software development and debug- 
^ng, "fAiich in mm dramxtically decreases the lime-to- 
market of innovative liW. jjoftware editions. 

A medium-size liN'li station oMB well over $100,000. 
Forth protects the owner's invesimem by makii>g ii possibk; 



to continuously expand the software without making the 
hardware inv^tment obsolete. 

All software, including firmware and a large number of 

device drivers, is written in Forth. Amtelcn was tmc of the first 
users of SCSI hard drives, but we could not aflbrd a $25,000 
SCSI bus analyzer. Forth enabled us to write SCSI device 
drivers without expensive bus-analyzing hardware, I remem- 
ber the surprised look of a visiting drive engineer when we 
presented him with a bug in his SCSI drive. He found it hard 
to believe tliat we used Forth without a SCSI bus analyzer to 
write device drivers. 

A Challenge— rRemote Operator Stattotos 

A neceni addition to HVE, remote operator stations consist 

of a personal computer ratlicr than a video icrminal. Remote 
Operators use a pair of higli-speed, asynchronous modems 
to connect to the EVE station. Two benefits of the remote 
Ofx;raior are telecommuting (working at home) and allowing 
sales staff to set up new client accnunis at the point of sale 
with a live demoasiration of how their calls wiU be handled. 
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AnoUier beneGt of remote o^Xintiors is ifiat supcr%'isars can 
inoniior ihc system ai home and take acUon only when 
needed, I'inally, a multi-tasking remote operator can lie 
connected to mcxe than one EVE station simultaneously. 

Ilie development of the remote operator station was one 
of our most challenging pro jecLs. Ilwas very Jiflkult to design 
a higtily irucniaive appUcaiion asyndironously. We had a 
number of problems initially because the remote siaticxi would 
get sa)ck wailing for a response from l-VT!. for example, vvc 
had icj develop our own communicaiions protocol because 
the connection bfflwcen the modem and the host would often 
lose data, and ihe modem did not detca line breaks fast 
enough. Forth is an ideal environment for this type of 
application l>ecaiise of its powerful multi-tasking capability. 

To decrease hardware costs, management decided that 
remote operator station personal computers should operate 
without a hard disk. Again, Torth proved to be the most 
suitable language. Forth made it possible to design very 
efficient code that could be booted from floppy disk without 
the need for software overlays. 

The remote operatorwasan essential partoftheThailand 
project. Forth enabled us to rapidly write a VGA graphics 
display driver for the Thai character set, and to streamline 
EVE's message-paging capabilities for our Tliai customers. 
We heard thai even the King of Thailand has paging accounts 
on the Bangkok station! 

Developing Powerful Software Tools 
Forth made it possible to write our own software tools. A 
good example, and one of the first tools we developed, is still 
the most powerful. It is called COMPARING. It compares a 
range of Forth blocks and highlights the diiference-s in (lie 
code on the screen or printer (variations are printed in bold 
simply by printing them twice). 

With iiiuliiplc programmers (at one titnc we had seven) 
working on a major software edition, comparing is used to 
print all changes. These comparisons are given to an 
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integrator for integration into the final release. The printouts 
are also used to verify all code changes at the end of the 
development cycle Tliis works especially well if a different 
programmer (usually the integrator) verifies the changes. 

ZEUS is another unique and powerful debugging ta.sk 
written to aid in tlie devcdopmc^nt of the remote operator statioa 
It is a iMckground task nirming on tte remote station. A 
progiammer can log ontoa customer's EVEsation(l%jie Two) 
via nKxicm. The programmer llien loads a utility on EVi^ which 
allows sending aaual I'orth commands tlirougli a second pair 
ol modems to the remote operaKrstatioa 'iTie l ortli conumnd 
is executed on the remoK; operator station, and tlie result is sent 
back through EVE to the programmer's terminal via the four 
modems. Itie remote operator is undisturbed in its opcratron 
and continues to take messages while, in the background, a 
prcigrammer is ddt^J^r^ the system. The name Zeus is a 
refcnsnc:e to ilie [lower of this debugging L(X)1. 

The power of I'orlh is limited only by the imagination of 
the programmer, and Zeus is a good example of this. Onoc 
the idea for 7eiis was !iom. Forth was the pcrfea environ- 
ment to realize the idea and concept. 

The debugging task on EVE is named TRON. Those who 
saw the movie know w h\'. 

Conclusion 

Forth is neither a low- nor a high-level programming 

environment -it is both ami more. 'Ilie highly interactive 
Forth environment greatly stimulates the process of convert- 
ing human ideas and thoughts into machine code. For this 
reason, 1 believe that Forth programmers spend most of their 
time solving problems rather than trying to work around 
restrictions imposed by other, non-Forth programming meth- 
ods. This highly productive process of writing Forth software 
builds an even higher level of confidence in the programmer, 
which in turn significantly reduces the numtx;r of errors 
(bugs)- The progranuiier's confidence in error-free code is a 
key ingredient of sucoessTul "Forth on a grand scale" prt^ects. 
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Graphics and 
Floating Point 

In ReahTlniB Aetkm 

Dr. Mark Smiley 
Baltimore, Maryland 



A Zenith- 150 spewing fractal dragons on tlvc screen 
introduced me lo Foith. Anides in Byteznd Dr. Dobbs/oumai 
increased my suspicion that Forth and fractak; wou Id wed well . 

At the time, I v/3S using Fortran on a mainTrame lo draw 
pictures of the fratJals whose mathematical properties I was 
studying. I'd drive an hour to reach a siic \\here I liad lo 
program on a terminal in one building, tlicn walk a good 
distance to another building, where I frequently had to tap on 
the window to \vake up the operator in order lo get the plotter 
output from my program. The idea of owning my own 
computer, one with vitleo graphics, appealed to mc. I 
purchased a Z-1 50 and set about learning Fofth. Thus began 
my relationship with Forth and graphics on MS-DOS madu'nes. 

An early bad experience with a [-orth vendor, and a desire 
to have access to all the source code, led me to public- 
domain Forths. Yet none of them contained graphics rou- 
tines. I resolvc<l to create enough routines to enable my 
studies. 7his effort eventually resulted in the F-Pt^ graphics 
package currently distribuEcd through ihe Forth Inieiest 
Group's soflware library. 



f wanted a vocabulary 
that would make It easy 
to express my ideas— for that 
f retfiilred floating point. 



Foith's interactive nature lends itself to work with graph- 
ics. My labors in this area led to a number of applications. 
Sdiiie ! was paid to develop, otliers helped with my 
dissertation, but many i wrote just for fun. This article 
discusses the genesis of ihc graphics routines in the light of 
Juliam, an jipplit .iiii n I sell that grew sytnbiotically alongside 
the grapliiCi rouUiiCi. 

Juliam 

Juliam craves a rich J'orth environment. Tt requires a wide 
range of graphics and floaling-poiiit routines, a,s well li 
professional menu .system for constmcting a friendly inter- 
face. In addition, the graphics routines allocate large C6^K) 
bufieis outside the Forth system, and support a variety of 



grapliics modes; CGA, EGA, VGA, and many SVGA boards. 
Together with the more than 8(X>K of graphics routines, 
Juliam comprises well over a megabyte of code. 

Juliam uses a variety of algorithms to draw both Julia and 
Mandelbrot seLs. To get an idea of how the<!c sets are deflrved, 
considi i lin- riiap: f(z) ^ /2 > C, whfrc / andC arc complex 
numlx,rs. For example, suppose C=0 and z=2. Then fC2)='i, 
fit4>l6, and tiCl6)-256. Thus 4, l6, and 256 are itmtes of 2; 
ihey are examples of the output obtained from applying the 
map fCz) over and over again, each urne plugging the output 
back into fC/). Note that the iterates of 2 increase wiiliout 
bound. In other words, they go towards infinity. On the ottier 
hand, the iterates of 1/2 approach 0. Furthermore, the iterates 
of -1 go neither tn nor to iiifii-iiiy. 'ITit.s point lies on the 
boundary between the points that go to infinity and those that 
don't Thus -1 represents an element of the Julia set for tiie 
mapfCz) = z2. Indeed, the Julia set forthis map is just the drde 
of radius 1 centered at Uie origin. 

In general, Julia sets take on far more intricate patterns 
than mere circles. Roughly, the Julia set of tlie map f(z) = 72 
+ C consists of those points, z, that lie on the l^>undary 
between the set of points whose iterates go to infinity and 
those Uiat don't. (More precisely, to mathernaticiai^, it is the 
closure of the set of repelling ]x;rirjdic (wints.) Hence Julia 
sets reside in /-space. On the other h.ind, the .Mandelbrot .set 
is liie set of all values C for which the Julia set is connected, 
so the Mandelbrot set sits in C-space. For a for fuller 
discussion of Julia and Mandelbrot set.s, see |21. 

The list below presents some of the features of Juliam 
version 5.11. Tfvese items may ^ve you an idea of some of 
the routines 1 strugig^d to impIetnenL 

1 ) Rea I - 1 i m c i n t c ra ct i ve graphics — ^watdi the Julia .set cha nge 
as you alter the parameters. 

2) Milnor/Thurston algorithm for the Mandelbrot set — more 
detail than the common, fnrv.'ard-iteraiion algorithm. 

3) Move a crosshair about on the Mandelbrot set and draw 
the cortesponding Julia set 

4) Move a resizable lectar^e on tfie screen and zoom in on 
the image. 

5) Save images to disk, complete with ail pertinent param- 
eters. 
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6) Create and watch mini-movies. 

7) Supp«)rt for a variety of grafrfiics cards: CGA, EGA, VGA, 
and many SVGA cards. 

Graphics 

The first public-domain Forth I tried was a version of 
MVP-Jr'orth. 1 used a DOS intermpt to put the computer in 
graphics mode, and another to plot a single poinL Both used 
INTCALL { ax bx cx dx interrupt — ax ) . Later, 
1 migrated to Laxen and Perry's I''83 Forth, then the variants 
F83S, F83SX, F^Y, Wil Baden's F83X, and finally lorn 
Zimmer'sFF, F88and F-PC, On MS-IX)S madiinas, all lilOS 
video is handled ilirough iniernjpL S 1 (a $ means liexadeci- 
mal in F-PQ. INT$10 Ijelow represents a simplified version 
of INTCALL for use with I '-PC, thou^ ihe cunent routines 
no longer use anytliing as general (or as slov/). 

1 

CODE INT$10 { ax bx cx dx — ) 

\ call interrupt $10 

POP DX POP CX POP ax POP AX 

PUSH BP INT $10 POP BP 
NEXT END-CODE 

: VGA320 { — ) 

\ enter VGA 320x200 256-color mode 
$13 INT$10 

: B. DOT. OLD ( X y color — ) 

( column row color — > 
$C00 + -ROT -BOT im:$lO ; 

\ 

Of course it is faster to avoid the stack thrashing of 
B . DOT . OLD. Here's the current BIOS version of B . DOT. 

{ 

CODE B.DOT ( X y color — ) 

( coluffln row color — ) 

POP AX MOV AH, # $0C 

\ AH=function, 2VL=color 

XOR BX, BX \ page 

POP DX \ y- coordinate 

POP CX \ x-coordinate 

PUSH BP \ preserve BP register 

INT $10 \ call BIOS 

POP BP \ restore BP 

NEXT END-CODE 
} 

It is even faster to bvpass the BIOS and write directly into 
video memory. Here's an example of a direct screen-writing 
version ofDOT for VGA mode $13 (320x200 with 256 colors). 
Ctompare it wth the slower B . dot. (One disadvantage of 
direct routines Ls that nearly every graphics mode requires a 
different version.) 



( 

\ vga mode $13, 1 pel/byte (320x200) 
code v320,dot ( x y color — ) 



POP DI 




\ color in di 


pop CX 


pop dx 


V dx = X, CX = y 


push es 




\ save ES 


mov ax, 


# SaOOO 


\ video seg in memory 


mov es. 


ax \ write directly to memory 


xor bx. 


bx 


\ base of buffer 


mov hx, 


dx 


\ CX = row, dx = col 


mov ax. 


# 320 


\ pixels per row 


cwd 






mul CX 




\ rows to our dot 


add bx. 


ax 


\ bx = offset 


mov ax. 


di 


\ di = color (0-255) 


mov es : 


[bx]. 


al \ write pixel 


pop es 




\ restore ES 


next c 







} 
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Even back when I worked in the MVl' dialect, 1 latigtit a 
dass in Forth. Or»e of my coUea^esJohimy Graves, audited 
my course and wrote the high-level, line-drawing routine 
DLINE. liis code still turris up in public-domain Forth code 
today. Later, I cleaned it up and converted it to assembler for 
speed, A year after Johnny, a talented student ramed Tim 
Smith wrote some line-drawing routines in assembler for F83. 
A.S with VGA3 2 . DOT above, Tim's code bypassed tJic BIOS 
and wrote direcUy to Video memory. As a result, it ran 
significandy faster than the high-level DLINE. 

Al first, I only had access to CGA systems. Later, wlien 
EGA and VGA became available, Mike Sped (via the now- 
defunct East Coast Forth Board) helped me port and optimize 
the code further. 

Juiiam's accurate Mandelbrot set algorithm requinss filled 
disks, so I added diese, too, along with the aspea ratios 
ncce.ssar>' to achieve circles 'Hi is algorithm was first di,s- 
cussed in a paper, which languished long unpubli.shed, by 
Milnor and Thurston, each of whom has won the Fields 
Medal — the equivalent of tlie Nolxi prize for mathematics. 
Their algorithm is an example of a distance estimator method 
(DFAO. h uses a .sophisticated techniques lo esiimate the 
distance from a given point to the Mandelbrot set. Then it 
draws a disk centered at that point which contains no points 
of the Mandelbrrit set, and cills it.scif recurs ivelv on four of 
the disk's boundary points. Thus the algorithm fills in all that 
is not the Mandelbrot set 

To see the difference betw^een the DEM algorithm and the 
traditional one that so many other programs use, compare 
Figure One (traditionaO and RgureTwo (DRM). Both depia 
the Mandelbrot set. 

To speed up the filled disk routines, I added .some 
' optimized routines for horizontal lines, later, I wanted to 
include a feature in Juliam that would allow a user to move 
a crosshair about on the Mandelbrot set to select a value of 
C to generate a new Julia set. l or maximum speed, 1 
implemented optimized horizontal and vertical lines that 
XORed onto the screen. These lines also helped in a feature 
that lets users move a resizable rectangle arou nd on an image 
17 January 1993February 



to selea a region for zooming. 

Some images take several hours to generate, so I needed 

the ability to save them to disk. '1 Tic key word for implement- 
ing a crude (and slow) ver-iioii of this graphics screen saving 
is BIOS-READ-DOT. Given the coordinates of a pixel, it 
letums the pixel color. 



i 

CODE BIOS-READ-DOT 
POP DX 
POP CX 
XOR BX, BX 
MOV AX, * $D0O 
PUSH BP 
INT $10 
POP BP 

AND AX, # $O0FF 



( X y — color ) 
\ y-coorcLinate 

\ x-coordinate 
\ page 

\ BIOS service nuntber 



IPUSH 



\ clear AH to 00, so 
\ that flX=AL is just the color 
END -CODE 



) 



In tJic current graphics [xickagc, all but some new SVGA 
modes now have routines itiai can save an entire image at 
once, rather tfian calling a routine like BIOS -READ-DOT. 
.Some roiiiines put the imngc in memor\', for quickly saving 
and resLoring a screen diiniig prngrani execDlinii; other 
routines save to disk, for ix;rrnancnce. 

It's funny how the first words that must be written to 
develop a graphics package — ^words to enter graphics 
mtxles— apfx^ar near ihc end of a completed graphics 
package. As the graphics package migrated and grew, I 
fiaund that more and more words needed to be defiened, so 
each graphics resolution rec|uircd its own word to set all 
itiese values. 'ITius, words like VGA320 that controlled 
graphics modes, moved from the top of the graphics package 
to the bottom, Ftmhermore, experience led to separating 
these words into a part iikc (VGA320) to set all the 
parameters, and another pan grmode that actually entered 
graphics modes. This separation makes it possible to gener- 
ate computations based on the graphics mode, without 
actually entering [he iiinde. 

To make things more complicated, some systems de- 
mand BIOS graphics, so each graphics resolution required 
two WOi ds: nnt: lo sct deferred words like line to use BIOS 
graphics, and ifie otlier to sei tlie words to use direct screen- 
writing graphics. Typical examples are tVGA320.D) to set 
the direct routines of VGA mode $13, and (VGASZO .B) for 
the BIOS routines. 

The package contains worcLs to facilitate switdung be- 
tween BIOS and direct techniques, direct graphics 
switches all graphics modes to use the direa rouiine-s, while 
BIOS_GRAPHlCS switches them all to use the BIOS ones. 
Hie BTC^ routines retain more compatibility, but signifi- 
cantiy l&ss speed, than the direct routines. 

Floatingpoint 

My studies requiied not only graphics, but floatii>g point 
Tme, many calculations could be performed wWi integer 





arithmetic. After all, pixels have integer scrceri coordinates. 
But I wanted a vocabu lary that would ma ke it easy to express 
my ideas, and for fliat T required floating point. 

At mv first FIG conference in 1 met Roland Koluvec, 
who kindly provided me with a hardware floating-point 
package that a friend of his (Stephen Pollack) had written for 
F83S. Later, 1 gave a copy of it to the Silicon Valley I'lG library. 
Since f-B3 worked with blocks, I put both the floating-point 
and graphics nxjtines in one large file that dearly indicated 
the authorship its various parts. Later, others extracted the 
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floating-point part and converted it to HFT,OAT.SEQ in Tom 
Hmmer's Forths, In the process, some people came to 
believe (erroneously) that I wrote the floating-point package. 
I'his is not the case: 1 meiely added a few extensions. 
Unfortunately, the package had bugs in it and, as far as I 
know, some of those bugs persist today in the current 
incarnation, though 1 no longer have access to an 80x87 chip 
to test this hypothesis. 

Drawing fractals seems to be a good lest for noaling-fxjint 
routines. My experiments fiave [iel[x;d me catcli a variety of 
errors in Bob Sniilh s ijllOA'l .SEQ — tnugs which Bob typi- 
cally s<]uashed within hours. Today, SFLOAT is an excellent 
package with no known bugs. 

VP SFLOAT is another high-quality, software floating- 
point packa^ for F-PC. It has a little more accuracy than 
SFLOAT, but it is also slower. My work uncovered a minor 
bug in it, too, whicli Jack Brown rapidly quelled. One day, 
he has promised to convert a good hardware floating point 
lo F-PC, too. I look forward to that day. 

.-Xfter 1 had a floating point, I developed the first version 
of Juliam, which only drew Julia ,sct.s in those days, and so 
was called JULIA.BLK in F83, and later JULL\.SEQ in F-PC. 
You can gel a version of the latter in ifie F-PC graphics 
package. 

Using the Graphics Package 

Applications must first selea the graphics resolution by 

.selling the deferred word (RES), which prepares all the 
parameters for the graphics mode without actually entering 
iL For example: 

• (VGA320) IS (RKSl 

Then the program should utilize either GRMODE or SET- 
RES to enter the graphics mode. Here's an example: 

{ 

: testl 

f'l {VGA320) IS (RES) 

\ set current graphics mode, by setting 
\ the value of (RES) . 

set-res \ enter current graphics mode 

200 100 15 dot 

\ plot a point with coordinates 
\ (200,100) and color 15 (white), 
key drop \ wait for a key 

text \ return to text mode 

s 

\ 

Better yet, use CHOOSe-res tor the SVGA version, 
RE SMENU) to allow the user to selea the graphics mode from 
a menu of available riKxles, as in the nesd. esrample. 

i 

; test2 

choose -res \ set the value of (RES) 
set -res \ enter current graphics mocte 



200 100 15 dot 

\ plot a point with coordinates 
\ (200,100) and color 15 (white), 
key drop \ wait for a key 

text \ return to text mode 

} 

I have only scratched the surface of the graphics package 
and all diaL is possible with it. U includes things like turtle 
graphics, VGA sprites, graphics text fonts for positioning lext 
with pixel-level control, world coordinates, automatic func- 
tion plotting, VGA palettes, a flood fill, 3D to 2D transforma- 
tions, and much more. 

The graphics package is an ongoirig prqecL I continually 
imagine new features that would improve the package; the 
ones 1 really ficed, 1 implcmciil. As you can .sec, many people 
tiave conuibuted to liic dcvelopmcni of the grapfiics and 
floaling-point routines. If you arc interested in adding a new 
routine or improving an existing one, feci free to contact me 
and 1 will work with you to integrate it into tlie graphics 
package. Here are some ideas: ihc^ ability to save and read 
GIF, PCX, PCL, or EPS files; direct supj^ort for mote SVGA 
cards; palette rotation; fast filled jx^lygons; 3D hidden 
surf.ice.'i \v]\h shatiing; and ray lrat:ing, I am also interested 
in any applications you write that employ aspects of tlie 
graphics padcagis. Drop me a line describing them. Better 
yet, send me a copy. 

References 

1. Mandelbrot, Renoit B , The h'ractai Geometry of Nature, W, 
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•Graphics a Floating Point" code. 



\ Graphics Variables 

variable vres 

variable hres 

variable color 

variable tcolors 

variable vid.mode 

variable palette 

variable vchip 

variable buf .size 

variable vid.seg 

$faOO value bit_plane . size 

variable bytes /row 

64000. POINTER BUF.SEG 

\ F-PC uses POINTER to allocate 



\ vertical resolution 
\ horizontal resolution 
\ in the range to #colors-l 
\ number of different colors 
\ video mode 
\ the default palette 
\ video card chip set 
\ size of the graphics buffer 
\ vidbo manory segment 
\ nuinber of bytes to read/ write 
\ used by direct graphics routines 
\ screen save buffer 
memory from outside Forth. 



\ Plotting Pixels 
















defer dot 


( 


X y color — 


) 


\ 


plot 


a pixel 




defer color-dot 


( 


X y — ) 




\ 


uses 


value of OOIiOR 


for color 


defer clip-dot 


( 


X y ~ ) 




\ 


uses 


value of COLOR 


for color 


defer xdot 


( 


X y color — 


) 


\ 


K)Rs 


a pixel 




defer cdot 


( 


color X y — 


) 


\ 


plot 


a pixel 




defer re ad- dot 


{ 


X y — color 


) 


\ 


return the color of 


a pixel 



\ All lines use the variable COLOR as the color. 



[ xl yl x2 y2 

{ xl yl x2 y2 — 

( xl x2 y ~ ) 

( xl x2 y — ) 

{ yl y2 xl — > 

( yl y2 xl — > 
( X y ~ ) 



) \ draw a line 
) \ XOR a line 

\ draw a fast horizontal line 

\ JHJR a fast horizontal line 

\ draws a vertical line 

\ XORs a vertical line 

\ draws from current point to (x,y) 



defer line 
defer xline 
defer hline 
defer xhline 
defer vline 
defer xvline 
defer nline 
} 

NLIME draws a line from the current point to the point on TOS . 

Use KOVETO ( X y — ) to set the current point before invoking NLINE the 

first time. 

The following words save and restore graphics screens fr<»n video memory 

save either to buffer or to disk, depending on the graphics mode 

{ 

defer SaveVid 
1 

Save the current graphics screen to a terrporary location. This location may 
be either file or memory, depending on the graphics mode . (To save the 
screen permanently, the graphics package provides BSAVE and "BSAVE.) 
{ 

defer RestVid \ Itestore screen from temporary location, 

defer text \ enter text mode {i.e. get out of graphics mode) 

defer (bsave) \ used by BSAVE and "BSAVE to save to disk 

defer (brecall) \ used by breCALL to view an image on disk 



DEFER (RES) 



V resolutions: values for (RES) 
DEFER (MED) DEFER (HIGH) 

DEFER (VGA640) DEFER (VGa320) 



} 



\ set graphics parameters 

DEFER (EGA) 



IVMODE stores values for various resolution-dependent variables. 
This version of IVMODR assures that the true HRES is stored in 
OLD_HRES whether the image is square or not. 
( 

: 'VMODE ( vidmode hres vres #colors vidseg buf size vchip — ) 
VCaiip ! \ chip set 

BUF. SIZE ! VID.SEG ! #C01jORS ! 
VRES I 

OLD HRES ! \ save old horizontal resolution 
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IF 

VRES 
ELSE 

OI.D_HRES @ 
THEN 

HRES ! VID.MODE ! 

Set-Aspect 
Set-Pals 



\ if image is square, 

\ make the resolution square 



\ set the ASPECT, based on the current resolution. 
\ set deferred palette words for current res 



Set-White \ set various values for use in whiting and filling the screen 



( vidmode hres vres #colors vidseg bufsize vchip > 
: (VGA320.D) ( — ) 19 320 200 256 $AO0O $FAOO VGA 

IVMODE 

§FA0O l> bit jplane . size 

hres e bytes/row ! 

1 -: #PLANES 

('] v320.dot is dot 

['] v320.xdot is xdot 

{'] v320,cdot is cdot 

['] v320 . coior-dot is color-dot 

['] v320 . clip-dot is clip-dot 

['] bios-read-doL is read-dot 

[ ' ] lino320 is 1 ine 

['] xline320 is xline 

['1 hline320 is hline 

['] Khline320 is xhline 

I'] 256vline is vllne 

[ ' ] x256vline is xvline 

['] D.NLINE IS NLINE 

[ ' ] vid>buf IS SaveViD 

[ ' ] buf>vid IS ReStVID 

[ ' ] {cga_brecall) is (b recall) 

[ ' ] (cga_bsave) is (bsave) \ for "BSAVE 

['] BUF_BSAVE IS BSAVE 

['] WHITE-VGA IS WHITE-SCREEN 

['] FILL-VGA IS FILL-SCREEN 

['] (CLEAR-SCREEN. D) IS (CLEAR- SCREEN) 

' (VGA320.D) IS (VGA320) 



: (>BIOS) 

[ ' ] B.dot is dot 

[ ' ] B . xdot is xdot 

['] B.cdot is cdot 

['] B. color-dot is color-dot 

['] B. clip-dot is clip-dot 

['] bios -read-dot is read-dot 

[ ' ] B. line is line 

['] B.HOR_line is hline 

[•] B.VER_line is vline 

['] B.xlino is xline 

['] B, xhline is Khline 

['] B. xvline is xvline 

[ ' ] B.NLINB IS NLISE 

[ ' ] SLOW-WHITE- SCREEN IS WHITE-SCREEN 

1'] SLOH-F ILL-SCREEN IS FILL-SCREEN" 

['] Set -Res IS (CLEAR-SCl^EN) \ clear screen using INT $10 



CCbde continues on next page J 
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>VGAJBIOS sets various defeEred vfords for saving images In VGA and SVGA modes. 
{ 

: >VGA__BIOS { — ) 

OBIOS) 

Set__Write_Size \ set the Write_Size, #Row3 /Write and 

\ #Writes/ Im for use in saving images 
[ ' ] SaveVGA_BIOS IS SaveVID 
[ ' ] RestVGA_BIOS IS BestVID 
I'] (file>vga) IS <brecall) 
[ ' ] (vga>f lie} IS (bsave) 
t'] COPY_IMAGE IS BSAVE 



( vidmode hres vres #go1oi:s vidseg bufsize vchip ) 
: {VGA320.B) ( — ) 19 320 200 256 $AO00 $FAOO 3 

IVMODE 
>VGA_BIOS 

\ ' '(VGA320.B) IS (VGA320) 

) 

DIRECT_GRRPHICS makes graphics coitmands write directly to the screen. 

It is deferred, so that other modes may be patched in later. 

t 

DEFER DIRECT_GRAPHICS 
: (DIRECT_GRAPHICS) 

[•] (MED.D) IS (MED) 

['] {HIGH.D) IS (HIGH) 

['] (EGA.D) IS (EGA) 

[ • ] (VGA320 .D) IS (VGA320) 

['] (VGA640.D) IS (VGA640) 

(RES) ; \ makes changes take effect 

' tDIBECT_GRAPHICS) IS DIRECTjGRSPHICS 
DIRECT_GRAPHICS 

DEFER BIOS_GRAPHICS 
: (BIOS_GRAPHICS) 

[■] (MED,B) IS (MED) 

[•] (HIGH.B) IS (HIGH) 

[•] (EGft.B) IS (EGA) 

['] (VGA320.B) IS (VGA320) 

i ' ] (VGA640 .B) IS (VGA640) 

(RES) ; \ makes changes take effect 

• (BIOS_GRAPHICS) IS BIOS_GRAPHICS 

CODE MODE ( n — ) \ enter graphics mode n 

POP AX 
INI $10 
NEXT C; 

> 

The words STATOFF and SLOW below are necessary in F-PC to avoid the text 
writing directly to the screen in graphics modes, which would result in 
unintelligible garbage. 
{ 

: GRMODE \ enter the current graphics resolution 

STATOFF SLOW 
VID.MODE @ MCHJE ; 



SET-RES \ set appropriate values and enter the 

(RES) \ current graphics mode 

GRMODE 
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FORTH DIMENSIONS BACK VOLUMES 

A voJnme consists of the six issues from the volnme year (May-April) 



Volume 1 1 o:11i n.rncnsions (19T5>-80) 
i\ 50 Ininxluciion lo \-K}, threaded code, TO variables. fig-Foith. 



Voluine 3 Ftnlh Dtmotsions (19S1-S2) 103 - 315 1# 

Lftkt 5 Forth-79 Standard, Slacks , HEX, databa-iie, nrasic, memory man- 
agemeni, high-level intermpls, string stack, BASIC compiler, 

recursicit, 8080 assembler. 
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Volume 6 Forth Dimensions (1984.^85) 106 -S15 2# 

100 Inlerat:live editors, anonymt>us variables, list handhrtj^, integer 
solutions, et^ritrol stiuLltires. deliugging techniques, itxursion, 
sciiijipfnnes, simple I/O words, Quloksart, high-level paclo^ 
ciHnmunicati<ms, China FORML 



Vioiiime 7 Forth Kmensions C1985-86> 107 - $20 af 

Laiit 100 Generic sort. Forth spreadsheet, control structures, pscudo- 
intemipts, ntiinber editing. Atari Forth, pretty printing, code 
modtiles, universal slack word, polynomial evaluation, F83 
Strings, 



Vtilume Jf I'onh Dimensions (1986-K7) 
too Internipt driven serial input, data -base fti notions 



108.S20 in 
TI 99/A, 

XMODHM, on-line doctimcniation, dual-CFAs, random 
numbers, arrays, file query. Batcher's sort, screenlcss Fcxth, 
classes in Forth, Biesenham line-dtawing algorithm, unsigned 
division, DOS file I/O. 

Voltime9 Forth Dimensions (1987-88) 109 -$20 M 

1 00 ^^^^^^ landscapes, stack errtsr checking, perpetual date routines, 
Iteadless conipilcr, eAeeiititjn seeLiiity, AXS- Forth meeting, 
computer-aided instruction , local variables, Iranscendenta! func- 
tions, educaUon, telocataUe Forth for 68000. 

Volume 10 Forth Dimensions (1988-S9) ]]0-$20 2# 

dBase ^access, slringhandUng, local variables , data structures, 
objcct-oiiented Foilh, linear aulxxnata, stand-alone applications, 
8250 drivers, serial data compression. 



Ill -$20 7* 

e\ tended 



V«lumc 1 1 Forth Dimensions ClyS9-90) 

■J 00 L-^^''l vjiriaf^lr-^, t;[.ip}^ir fillir>3', Ljlgt>rithiT>s, ^^02^^f■ 

mcmors-, I'upen systems, quaternion rotation ealrnlaiion, 
multiprocessor I'orth, double-entry boc*keeping, binary table 
scanJi, phase-angle differential analyxer, son cootcsl. 

Volume 13 Forth Dimensions (1990-91) 112-S20 ^ 

too Floored division, stack variables, embedded contrui, Atari Fonh, 
optimizing comipiler, dynamic memory allocation, smart RAM, 
extended-prednonniaih, intsfiupt handling, neiiial nets, Soviet 
Forth, arrays, mdacompilalion. 



FORML CONFERENCE PROCEEDINGS 

FORML (Forth Modification Labonitory) is an cducatiortal 
fonun for sharing and discussing new or unproven proposals 
intended lo benefit Forth, and is an educational forum for discus- 
sion of the technical aspects of applications in Forth. Proceedings 
are a compilation of the pliers and abstracts presented at tne 
annual conference FORML is part of the Fotth Interest Gtoi^ 

1980 FORML rRnci-:t:n!\{;s 310 

Address bindiri^;, i^^nju^K? memory allocation, local variables, 

concurrency, binary absolute & relocatable loader, LISP, how to 
manage Forth prnocls, n-level file system, documenting Fonh, 
Forth stradHiES, Forth strings. 2 SI pgs 

1981 FORML l'R<)CKKl)lN(;s 311 
CODE-less Forth machine, quadruple-precision arithmetic, 
onreriays, execntaUe vocabulary stack, data typing in Forth, 
vectored data sbucttnes. usir^ Forth in a dassTooni, pyramid 
files, BASIC, LOGO, automatic cueir^ language fofmuttimedia, 
NHXOS — a ROM-based multitasking operating system. 655 pgs 

tm FORML PROCEEDINGS 312 
Rockwell Forth processor, virtual execudcai, 32-bit Forth, ONLY 

for vocabularies. non-IMMEDIATE loc^nng words, number- 
input wo nisei, I/O vectoring, recursivedalastnictures.prog^m- 
niable- logic compiler. 29ipgs 

1983 FORML PROCEEDINGS _ 313 

Non-Von Neuman machines, Forth instruction set, Chinese 
Fort h, F8 3 . com p i 1 e r ife i It i c rprct er co-routines, loeAexponential 
function, rational arithmetic, transcendental functions in 
variahle-jneciEim Forth, portable file^ystem interface. Forth 
coding conventions, expert systems. 352 pgs 

1984 FORML PROCEKDINGS 314 
Forth expert systems, eon sequent -reasoning inference engine, 
Zen floating point, portable ^ra|>liics wordset, 32-bit ratth, 
11P71B Ft>tlh, NliON — object -oriented programming, decom- 
piler design, arrays and stack variables. j7S pgs 

1986 FORML PROCEEDliNGS 316 
Threading techniques, Prolog, VLSI Fonh microprocessor, 
natural-language interface, expert system sheU, inference engine, 
muttiple-inhmtanoe system, automatic programming envircn- 
metu, 323 pgs 

1»87 PpRML PROCEEDINGS 317 
Include s papers from '87 euroFORML Confcrcn cc. 3 2 - hi i Forth , 
neural networks, control structures, AT, optimizing compilers, 
hypertext, field and record stmetures, CAD command language, 
objetl oriented listi;, trainable neural nets, expert system.';. 

I9S8 I'ORML PRtK:K.KniNCS 318 
Includes 19^8 Australian I-OK-VIL, Human interfaces, simple 
robotics kernel, .MODL'L Forth, parallel processing, 
programmable controllers, Prolog, simulations, language topics, 
hardware, W d ' s working s Ti ng ^ s phi I o sophy , I -orth h a rd w arc 
applications, ANS Forth .session, future of Forth in At 
applications. 310 pgs 

liW»FORML PROCEEDINGS 319 

Includes papers from '89 euroFORML, Pascal to Forth, 
extensible optimi/erfor comptl ing , 3 Dmeasutement w it h objed- 
orienlcJ Forth, CRC polynomials, F-PC, Harris C cross- 
compiler, modiitar apprtvit li to robolic control, RTX recompiler 
1 \ >r on - 1 ; ^ i e tn ai nt cti atice , ni odules, trainable neural nets. 43 J pgs 

I990H)RM[. PROCKF.DINGS 320 
I -orth ill induslry, coininniti cations monitor, 6 SO 5 dcvi,^Ui]jnieni. 
3. key keyboard, documentation techniques, object-oriented 

programming, simplest Fonh dtiCQmpiler, error recovery, stack 
operations, process contrrf event management, control slrticturc 
analysis, systems design course, gnxip theory using Forth. 
^41 pgs 
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1S9I FORML PROCKEDINGS 321 - SSO 3# 

Include* 1991 POKML. A»Uom«i. eurorORML ^l. 
Cxtehm]avekh and .1991 China HORML, Shanghai 

Differential File Comparison, LJNDA on a Simulalcd Network, 
S2: HlSCmg it ali, A thieadi:d M Ltfoprotjfutn \lLtchi[ic. I-orth in 
elworking, rf>nh in ihi: Soviet tin inn. f-OSM: A !''Oith String 
Matcher, VGA Uraptiics anJ Aiiimalioii, T'onh and TSR, 
i'orth CAE Sysian. Applyinu Fintll to Hlectric Dischatge 
Machinii^ MCS96-F0R1'U Sui^le Chip Computer. 500 pgs 



BOOKS ABOUT FORTH 

ALL ABOUT FORTH, 3r(l eti,, June tWO, Glen B, H^duii 201 - $90 4# 
Annotaicd glossary of most Fonh woids in common usage, 
indtidine Foith-79, Fonh-83, F-PC.MVP-Rjnh. ]mpl«miaitation 
examples in high-level Rmh and/or 8086/88 assembler. Useful 

commentary given for each entry. 504 pgs 

THK COMPLETF: FORTH. Alan Winfield 210 - $11 1# 

A comprehensive introductioft, indudng prabtlems with mswos 

(Fonh-79). 131 pgs 

tFORTH IMPLEMENTATION GUIDE, C.H. Ting 215 - $25 1# 

gi-orth 15 the name of a i'otth model designed to be portable to a 
large number of the newer, more powerful procpj^sors available 
now and becoming available in the near l uiutc. 54 pgs (w/disk) 

FS3 SOURCE. nmfyLaxen&Mic]iaelI>eny 217.$20 2# 

A complete listtag of FS3, bujuxSog soufce and shadow meou. 
Indiwles intiodoclion on getdng slated. 20S pgs 

FYHtUfcA'TEXTANDItEFERENCE 219-S31 2» 

MaUon G. Kdly &, Nicholas S(»cs 

A textbook jqiproech to Forth, wiih compfirfiensive itfeiences to 
MMS-FORIH and the '79 and '83 Forth standards. 487 pgs 

THE FIRST COURSE, C.I I. Ting 223 -$25 1# 

This tutorial's goal is to expose you to the very mintniAUii set of 
Fonh instnictioiis so that you can stait to use Foflli to solve 
practical probleins in the sboitest possible time. "... This tuiorUl 

was developed lo complement The Fonh Couksi' which ^ktms loo 
fast on the elementary Forth inslrurtions and dives too quickly in 
the advanced topics in a upper level college mictxicompiiter 
laboratory. ..." A iwBiing F-PC Forth system would be very 
useful. 44 pgs 

THE FORTH COURSE. Richani II Haskell 225 - S25 1# 

This set of 1 1 lessfflis, cat led 'I he Forth Course ^ is dcsij;;ncd to 
make it easy f'oi' y^ju tt> learr^ i'onir "llic material was dcvckiped 
over several years of leachuig i-orth a.s part of a senior/graduate 
OOUise in doign of embedded software computer systems at 
Oakland Unrvcisiiy in Rochester, Michigan. 156 pgs (w/disk) 

FORTH ENCYCLOI'KDIA, Mitch Derick & Linda Baker 220 - $30 2# 
A detailed look at each fig-Fonh inslnictiMi. 327 pgs 

FORTH NOTEBOOK, Dr. C.H. Ting 232-525 2S 

Good examples and anlications. Great teaming aid. poly- 
FDRTFI is the dialect u^. Some convcritcn advice is indnded. 

Code is well doetimcntul, 2S6_pgs 

FORTH NOTEBOOK 11, llr C.l I [ mg 232a - $25 2M 

Collecticai of research pa[^ts tHt various topics, such .i^ image 
p«x.-essing. parallel proccisitid, and miscellaneous apph cations. 

2.<7 pi;:i 

F-IK: tSFRS MANUAL (2nd cil., V3.5) 350 - S20 1# 

Users manual to the pijblit;-dt>iT^ain I'orth systirm opiinii/ed for 
UiW PCA'17A"[' rompuirrs. A fat, fast system with many tools. 

F-PC TECHNICAL KEFERENCE MANUAL 331 - $30 2# 

A must if you need to know the inner workings of F-PC 269 pgs 

INSIDE F-83i Dr. Cil. 'nne 235 - $25 2# 

Invaluable for those usuigP-SS. 226 pgs 

LIBRARY OF FORTH ROUTINES AM) UTILITIES, 

lames D Tcny 237 - S23 2# 

ComprolitTtsivo collt.Liion pri-.fetsional quality ctimpiiTercode 
lor Forth; offers routines that can be put lo use in almost any I'orlh 
application, including expert systems and natural-language 
tnt«fae». 374 pgs 



OB,IK(:r ORiKNTKD Ft)RTH, Dick Fountain 242 - S35 1# 

Implsmcnuition of data sliuctuiBS. First book lo make objccl- 

oiientpd prrigramTning availabieiouscis of even veiy small home 

computers. 118 pgs 

SEEING FORTH, Jack Wochr 243 - S25 1# 

''..J would like to share a few observations Oft I'orth and computer 
science, lltat is the purpose of this monograph. It is offered in the 
hope that it win broaden slightly the streams of Forth Uientuie ..." 
95pgs 

SCrcNTIFTC FORTH, Julian V. Nohie 250 - $50 2# 

Scienlific Forth extends the I-orth kcnie! in the direction of 
scientific problem solving, [i ilhisiraics advanced Forth 
pK^TMtimtng techniques with non-lnvial plications; 
ocn^utm al^ehim, loots of equations, difleientaal equi tion^ 
function minimizatian, functional lepresentalion of data (FFT, 
polynomials), linear equations and matrices, numerical 
ijitegration/Mmte Carlo methods, high-speed real and coinplcx 
floating-point aiithmetic. JOOpgs (£>clndes tlisk with programs 
and several utilities}, IBM 

STACK COMPUTERS, THE NEW WAVE 244 - $62 » 

Philip J. Koopman, Jr. (hardcover only) 

l*fcscnts an alternative to Complex Instruction Scl Cjompiners 
(CISC) and Rcdtictid Insiniction Sfl Computers (RKC) by 
showing the strengths and weaknesses of stack machines (haid* 
cover co^). 

- STARTING F'XJRTH <2nd ed.>, Leo Bfodie 245 - $29 2# 

In this edition of Slarting Forth —the most popular and complete 
intmdtiction to Forth — syntax has been e;ipanded to include the 
Ik)r(h-83 Standard, 346 pgs 

WRITE YOUR OWN PROGRAMMING LANGUAGE USING C++. 

NomianSmilh , , w -270-S15 1# 

This book IS anoui an aj-f licit nm language. Moiespecincttlh, tl 
isabotithow to write your<nv!i LusK^m appUcaliGnlutgu^e. The 
book contains the tools necessary to begin the process and a 
ocnqdetesan^kngniigeimftonentatei. [Goess matlangiMgel] 
Indudes disk wilfaocmplete source. KXpgs 



ACM-SIGFORTH 

The ACM SIGForth Newsletter is published quarterly by the 
Association of Computing Machinery, Inc. SIGFonh's focus is 
oa the developcnent and refinement of concepts, methods, and 
techniques needed hy Forth professionals. 

Volume 1 Spring 1989, Summer 1 989, #3, #4 911 - $24 2# 

!- i'C, glossary utility, euro Forth, SIG Forth '89 Workshop 
summary (real-time software engineering), iatel SOxSx. 
MeUKompikrincniFaith, Forth exoepitka handler, siring cttte 
statematt for UP/Rntb. 180Z simulator, tmotial on muMple 
thieaded vocabuUties, Slack ihimes, diulsr an alternative to 
vaiiaUes, PocketFonh. 

VtdumeZ tL#2,#3,#4 912-$24 
ACM SIOForth IndustrySurvcy,absliacls 1 990Rodiesler conf . , 
RTX-2000. BNF Parser, abstracts 1000 Rochester conf., F-PC 
Teadl. Tethered i-orth model, absiracis 1 590 SIGI-orth conf. 
Target-mela-cioss-: an engineer's viewpoint, single-instmclion 
computer. 

VolMmc3,</l Summer "91 913>-S6 1# 

Co -rout ines and recursion for tree balancing, convenient number 

handling. 

Voliime3,iK Fdl"91 913b- $6 1# 

Postsctipt Issue, What is Postscript?, Forth in Postscript, Review: 
PS-Tutor. 

1989 SlGForth Wurfcshc^ Prueeedines 931 - 520 1# 

Software engineering, multitasking, internipt-drivMi systems, 
object-oriented Forth , error recovery and oontTfli, virtual memory 

su[iport, signal processing. 127 pgs 

lWO-91 SIGI'orth Workshop Proceeding?! 932 - $20 1# 

leaching computer algebra, slack -based hardware, rec<>tifiK- 
urahle processors, real-time operating systems, embedded 
control, marketing Forth, development systems, in-flight 
monitoring, multi-piocessois, neural nets, security oontrol, user 
interface, algorithms. 134 pgs 



For faster service, fax your ortlers 510-535-1295 



DISKS: Contributions trom the Forth Community 

Tbe^ConnilNiliaDS fiom ihc I'onh Gimniuniiy" disk lilxaiy coniains 
aulhor-sufmillcd dcnaiions. generally including sourte, f<yr a variety 
of computeis & disk foimaVs. liath fife is JetCTmiiiedby Uieaulhoras 
publics Qomain, ^harcw'in'. or u^l: wnih siinu^ rrsTritiims. 'Iliis lihraiy 
floes not tx>iiuin "Fcir Sale" applicationSH To submit your ow/i conln- 
buSians, send Ihem to the FIG Pubiications Committee. 



F-PC Graphics V4.6, Mark Smiley 



C203a-fn 



Prices: Each item below comes cm one ornuirB disks, indicated ia 
parentheses atlcr the item number. 1Tiepricci3$6Bff jj ^j grgS f oT 
any five disks. 1 to M j^'fc' - 1 #. 



FLOAT4UI.BLK VI .4 Robctt U Smith 



O00l-a> 



Software floating -pMrt for fig-, poly-, 79-Std., 83-Std. 
Forths. IHlili short 32^1x1, four standard functions, sqaaic 
root and log, IBM. 

GMn« in Forth COQZ -(t) 

Mijc. game.^ Oo. Tr;'rRA, Life... Son roe. IBM 

A Forth Spreadshctt. Cra Lg 1 j iidky COOS - ( 1 ) 

This modd spreadsheet fim appested m /^omA Z)an£nnQns 
VH, 1-2. Those issues cootain docs A source. IBM 

Automatic Stritctore Charts, Kiiti H ani s C004 • (1 } 

TooIsiiM'aitalytLs <4Iarve Forth programs, first presented at 
FORML conference. Full source; docs ind. in 1 9S5 FORML 
Proceedings. IBM 

A Shnpie Inference EnsliK, MMn Tmy COOS - (I) 

Rased on inf. engine in Winston & Hem's book on LISP, 
takes you from pattern variables tO complete imiflcatiGIl 
algoriihni , wiih running L'ommcntary on Forth iMlos(^diy& 

stylo. Inel, scjurec. IBM 

The Math Box, NaUtanicl Grossman C006 - (l> 

Rout ines by rorenkostmalh authorin Fonh. Extended double- 
predsion arithmetic compiltte 32-tMt fized-poinl math, & 
■nto-ranging teXL Incl. graphics. Utilities for rapid 
polynomial evaluation, conUnucd fracttcm Sl Monte Cario 
faeiorizaiion. lad. toarce &. docs. IBM 

AslroFVMth & AsbwOKO Denosi LR. Agumirsian 007 - (!) 

AstroFotth is the S3^td. Russian version of Forth. Incl. 
window interface, Ml-sotcen editor, (J>Tianiic assembler & 
a great demo. AsUoOKO, ati asironavigatiijn system in 
Astrol'onh, calculates sky position of several object,s from 
different earth positions. Demos only. IBM 

Forth List Hattdler, Manin Tracy COOS • (I) 

list primitives extend Forth to provide a flexible, high- 
speed environirient for AT. Incl, EI .IS A and Winston & 
1 lorn' 4 micro- LIS I' asejiamplcs. Incl. scutce&docs. IBM 

8051 Embedded I<~t)rth, William Payne COSU - (4) 

S031 RO.Mmable Forth operating system. 8086-lo-SOSl 
ta rg et tompil er. Incl. sooFce. Does aiem HKhockEmtxdded 
C I •my oik r Fur Ik for the 8051 Family. IBM 

68HC1 1 Cullectian C060 - P) 

Colleaion of Forttis, Tools and Floatiitg Poim routines for 
the 68I1C11 oontioUer. IBM 

FK3 V2.0t, Mike Peny A Henry Laxen ClOO • (1) 

The ncuest vcr?;it>n. ported to a variety of machines. Editor, 
assembler, deaimpifrr, metacompiler. Stmrce and shadow 
screen!^. Manual available sepdrateiy (itenrts 211 ^ 235). 
Base for other applications. IBM,X3. 

e-VC V3.53 . 1 0.U Zimnier C200 - (S) 

A full Forth system with pull -down menus, sequential files, 
editor, forward assembler, metacompiler, floating point. 
Complete sotirce and help files. Manual tor V3.5 availaMe 
separately (items 330 & 351), Uase for oOier F-PC 
^plications. Req. fiard disk. IBM^ S3. 

F-PC TEACH V3.5, Lessons 0-7 Jack Brown _ CMla - a) 

loiifi el J room on disk. Hist seven lessons on learning 
Forth, from Jack Bniwn of B.C fottilille of Techuilogy. 
IBM, F-PC. 



VP-Planner Float for F-PC, VI .01 Jack Brown C2a2 - 

Software floating -p<>i Tit engine behind the \T*-Planner 
spreadshrt'i. SO-Kii fiemp<'sr:ity-real) routines with transcen- 
dental funtljuiis. number i/O support, vectors to suppoft 
numeric co-processor overlay & user NAN checking. I BM, 
F-PC. 



(1) 



Ihe latest versicos of new giiphics routines, induding CGAj 
E0A, and VGA supppcft, with numcipus inmnminenls smSTi 
earlier versions created or supported by Muk Smiley. IBM 

nsm, F-PC. 



NEW 
VERSION 



Pockett'orlh V6.1, Chris Hcilman C300 ■ (1 ) 

Smallest eamidele Faith fortbe Mac Access to all Macftmclkms, 
Evemi, files; gnpbk^, Stiating point, tiiteiiDf, eieue itaml^^ 

apDHcatictu wd DAs. Based oo fis & Sibling Forth, hud. source 
anS rnaiHiM. MACTSysteni TiorebmpMahfe. 

K«ve V0.9I>4, Antcro Taivalsaaii €360 - (1 ) 

Conipjrae Forth-like object Forth for the Mac. Otiject-Prototype HI 
access toaIIMacItitt(.tiutts,riles,graphics, floating point, macros, 
create standalone applications. Kernel source not included, 
extensive demo fUes, manual. MAC, System 7.01 Compatablc. 

Yerkes Forth V3.6 C350 ■ (2) 

Complete obiect-oiientcd Forth for the Macv Object access to all 
Mae foncttons, fiHes, grannies, floatiag poiiN, macios, cieate 
standalone applications. Ind. source, tutorial, assembler Sc 
manual. MAC, System 7.01 Conrpaiatile. 

JLISP V 1 ,0, Nick Didkovsky C401 - (1 ) 

LISP interpreter invoked from Amiga JForlh, Hie nucleus of the 
interpreter is the resultof Manin Tracy's woik. iixlendcd to allow 
the IJSP interpreter to link to and execute JForth words. It can 
communicate with JForth's ODE (Object-Development 
Bnvironincnt). AMIGA, 83. 

Pygmy V 1,4, Frank Sergeant C500 - ( 1 ) 

A lean, fast I-ofth with full source code. Incl. full-screen editor 
assembler and metaoDinpder. Up to IS files open at a tinte. IBM 

KForth, Ciiiv Kelty C600 
A full I'orth syslmi widi windows, mouse, drawing and modem 
packages. Inel. source & docs. IBM, S3. 



NEW 
VERSION 



NEW 
VERSION 



ForST. John Redmond 

I o till 1 or the Atari ST. IikL source & docs. Atari ST. 



C700-(l) 



Mops V2.2, Michael llorc C710 - (2) 

Close eous in to Yerkes and Neon. Very fast, commjos subroutine- 
threaded & native code. Object oriented. Uses F-P co-processor 
if present. Full access to Mac toolbox & syslein. Supports System 
7 te-g., ApfileBvcnts). Iticl. assemUcr, does & source. MAC 

BBL & AhUBdiaoe, Roedv Green €800 - (4) 

BBL public-domain, 32-bit Forth with extensive stippon of DOS, 

meticulously optimized for execution speed. Abuttdanec is 1 

EiL bl L t- J( ) r 1 1 ai Ti d 1 Li tM s 1 mu; 1 1 :i j; I' written in B R L, R cq . h ard disk, 
ncl. source & docs. IBM ItU, hard disk recquired 
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WAY YOU CALCULATE 
YOUR ORDERS. 

1) We tiave leveled the pricing for FIG 

items to all members. 

2) We have removed the cost of shipping 

from the price of the Items. 

3) We have given you a better choice of 

shipping methods and rates. 



Back issues of Forffi Diimnsions 
and FORML Conference Proceedings 
are going out of Print!! 



For faster service, fax your orders 510-535-1295 



fig-FORTH ASSEMBLY LANGUAGE SOURCE 

Ijsiings of fig-I-ort}^ tui ipccitic CPUs an J niuchnics with coitipilcr sccurily and 

viriable-leiiR til [ I a [lie ( f ^ce /Jj I WM W.-iflufl|^h^)w )-. - $ 1 S 1 # 



6S»2 



MandiSl 
August SI 



ng-PORTH INSTAIiATIONM 4 
GkMla 



source code Ds lings ■bove. 




501-315 ]# 



SYSTEMS GUIDE TO 
C.Rring(2nded. 

How' 
slnji 



308 -$25 1# 
sdale,intemal 



MISCELLANEOUS 

T^HIRT 'Maj tht F<Hlh Be With VoiT 601 - $12 1» 

"f lize: SiiuU,Medniin, Luge, Extra-Largeon oiderfonn) 
loaadMfcbiucshut. 



POSTER {Oei., 1980 BYTE cover) L»«t 1 9 
F0HTH-S3 HANDY REFERENCE CARD 



6CI2-$S li 

683 ■ free 



FORTH-O STANDARD 305 -$15 1# 

Atuhoritative description of Foith-S3 S^ndard. Foriefeienc«, not 

inslmclion. 85 pgs 

BIBLIOGRAPHY OK FORTH SEI^REKCES 340 - $18 2« 

Gidcd. January 1987) 

Over 1900 refiircnces to Fotth articles tlnoagham computer 
lilerattuc. 104 pgs 



MORE ON FORTH ENGINES 

Volume 10 Jai>uaiy 1989 810 -$15 1« 

RTX reprints frrni 1988 Rtidicstcr Forth Conference, (»hjcci- 
oricnied cmhirlh, lesser Poflta engbies. S7pgs 



Volume 11 July 1989 811 -$15 Ifl 

RTX sup[>Iement to Footsteps in an Empty Valley, SC32, 32-bil 
Ft>nh engine, RTX interrupts utility. 93 pg/! 

Vulumrn AnriMWO K12-$15 1J( 

ShBoom Chip archileMure and instnicUons, Neural Computine 
ModukNCM3232^pigForth, biiuiy radi:i sort oa 80286,68010, 
andRTJC2000. S7 pgs 

Volomu 13 Ortoljcr iyyo 813 - $15 1# 

PAL-i or the RTX2000 Mini-BEE, EBFortb. AZForth, RTX- 
2101, 8086 eFcnh, 805 1 cFonh. 107 pgs 

Volume 14 814 -$15 1» 

RIX Poditl-Stope, til-onh fur imil'20, ShBoom, cFCMth for CP/ 
M & Z80, XMODEM for cFonh. ii6 pgn 



Vohnne 15 



815 -315 1« 



Moorc:N'cwCADS\'Slf>mfnrt:tiipDcsign,A portiaitofthe P20; 
Riblc: QSl i'onh PnjtJ,^M.t>T, gS2, KlSOng it all; ^ eFonh 
Software Simulaior/Debiiggcr. 94 pgs 

Volume 16 816 -SIS I# 

OK CAD System, MuP20. eFiMth System Words. 386 cfoilii, 
80386 Prut ccted Mode Opeiatiofi.FRPl 600 - 16BitRe«111me 

DR. DOBB'S JOURNAL 

Aimaal Forth issue, includes code for various Forth anphcatiors. 
Sept. 1982 422 SS IN 

Sept 1983 423-35 1« 

Sept. 1984 424 - $5 1* 
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FIG Debriefing: 

Embedded 

Systems 

Conference 

John Rible 

Santa Cruz, California 

FIG was offered a booth at this year's Embedxled Sys^ms 
Conference "as an experiment" by the promoter, Miller- 
Freeman Publications. I took on the challenge to make it 
successful and succeeded, learning a lot in the process. 
We've been invited back next year, when it will be even 
beteeii Whatfollows is an account of the process, in the hopes 
that other chapters will decide to do the same at conferences 
in their aiea. 

The goal of our participation was to provide information 

about Forth to people outside the airrcni user community. 
To achieve tiiat at this conference meant showing Fortli in 
embedded apj^ications. Since F-PC and eForth don't address 
this area directly, 1 wanted to include vendors as much as 
passible, (o show nf)n-l'c^rth u.sc^rs wh^t was possible. To 
increase tlie excitement, I wanted a rafTle and demonstra- 
tions. And I needed people to staff the fxxjth. We also wanted 
to let chapter members know that they could get iiuo tfte 
exhibits Gand the partiesO fiee. No sailing is allowed at this 



f wanted to include vendors 
and show non-Forth users 
what was possible. 



show, so there would be no piles of disks and books to worry 
abouL 

So 1 called all the vendors I could think of who did cross- 
compilers or boards, about a dozen in all. 1 was overwhelmed 
by the enthusiasm! All of them wanted to participate, and in 
some cases were surprised that I didn't want to charge them. 
Tlirce vendors (AM Researcii, New Micros, and Vesta) agrcc'tl 
lo donate a board in return for the names of the entrants. 
'Ihree vendors (AM Research, Forth Inc., and Mosaic Indus- 
Li ics) agreed to demonstrate their systems, one each day. I 
arranged lo have the literature sent lo rnc tiic week before ihc 
show, guessing th&t 200-300 copies of brochures would be 
alx)ul right, ten per cent of the expected number of 
attendees. Since table Sf^ce was limited, tliey were restricted 
to just one or two items eadi. 

The people at Miller-Freeman were wonderfully support- 
Forth Dimenstons 



ive, and sent us, on very short notice, the "free pass" mailers 
to go out in our newsletter. At our chapter meeting the month 
befote the mnferenoe, I signed up people to staff the booth. 
Then 1 called each of them the week before to confirm it. Mo^ 
everybody showed up, some even for much more than 
they'd agreed to; it was fun! I got tlie Forih Interest Group 
office (they're local for us) to donate a couple of books for 
the raffle, make copies of FIG membership applications, and 
help out at llie booth some, too. I made up business-card 
sized name-address-phone cards for people without busi- 
ness cards who wanted to enter the raffle, along with a sign 
for die jar. 

I went the whole first day and half of the last day, to 
coordinate semp and deanup. The hall had stria laborunion 

rc<]uirements, so all the brochures were carried in and out by 
hand (or else ibeydo it ai $45/hour, one hour minimum) and 
the booth was set up without tools (same "or else"), We used 
wire racks to display vendor literature at one end; had FIG 
info, the £E Times "Forth in Space" article, "A Brief Intro to 
Forth" by Phil Koopman, Jr., and the raffie jar in llic middle; 
and the vendor demo at the other end We usually had two 
chapter members in the booth, with one or two vendor folks 
as well. The aisles were generally full, with people stopping 
almost continuously. It was very relaxed, though: people 
took breaks as desired and the staffing schedule was revised 
as each day went on. 

After the show, I drew the winners from llie raffie jar, 
packaged up the systems and sent them off. UPS was 
cheapest in ihe United Ststcs, and the U.S. Postal Service for 
England! The winners were: 

Monday's FIG book: Ian David, London, U.K. 

Tuesday's FTG book Gary W. Dow, San Jose, CA 

Wednesday's FIG book: Doyle Kisler, San Jose, CA 

Vesta system: Ron Palmieri, Daly City, CA 

NMI system: Lennart Suurik, Sunnywile, CA 

AM Research system: Richard Tobias, San Jose, CA 

Al Mitchell of AM Research volunteered to enter the raffle 
names on disk. I contacteda couple of vendors to arrai^ the 
return of a lol of their expensive brochures. When the disk 
with the names arrived I -lade i t.p-.rs and sent them to FIG 
and the donatit^ vendors. I sent thank you letters to all the 
vendors as well. 

Next time, I won't so optimistic about how many 
copies to have: although there were 1 50 cards in the raffle jar, 
only 50-100 copies each of the rarious brodiures were 
taken! I'll also collate the vendor brochu res and slip them into 
a 17x1 1 folded sheet with FIG, local ct^apier, and the Iiitro 
to Forth ir>f(»ntaiion on it, so there's just one pile of info and 
more room for books and demoastratiotis. I hope that, by 
starting earlier, we'll be able lo get llie "free pass" out with 
Forth Dimensions. There wont be an X3J14 meeting to 
interfere with getting thank-you's out to the vendors, And I 
won't mistakenly have my home addicss embossed on the 
exhibitor badges! 

See you there. 

! January 1993 February 



FomTurom., IfSSON^ 



Placing Charactets 
on the Scteen 



C.H. Ting 

San Mateo, California 

(The last tutorialdemonstrated how to dejinenewcommands 
and bow to tdse the string-priming funciion . " lo genemte 
i^ock letters on the di^iay — BdJ 

In this lesson, wc will try to write block diaiacters 
anywhere on the screen. The screen displays charaaers in 
25x80 formal, lhatis, 251ines with 80 characters per line. The 
following instructions allows us to position the cursor before 
writing characters: 

dark ('learscreenandputcursorat top-left corner, 

at Move the cursor to specified screen location, 

40 12 at e.g., put the cursor at the center of the screen. 

The following instruction puts a block-letter V at the 
center of screen: 

; newBar , " *****" • 

: ne«Post . " * " ; 

: new-F 

dark 

38 10 at newBar 

38 11 at newPost 

38 12 at newBar 

38 13 at newPost 

38 14 at newPost 

38 15 at newPost 
cr 



But it is very awkward to place a character by specifying 
the location of each of its separate elements. A more general 
way to place charactoJS Is to use variables to store the 
location, so that information isn't mixed in with the insUuc- 
dons that generate the character itself. 

variable x 
variable y 

: newLine 

X y S at \ move cursor to x, y location 
1 y +! \ increment y for next line 



: F newLine newBar 
newLine newPost 
newLine newBar 
newLine newPost 
newLine newPost 
newLine newPost 

Now to place F on the screen, we first specify its location: 
30 X 1 10 y ! F 

We have just used several more Forth instructions: 
variable <naine> Define a variable where numbers 

can be stored and retrieved. 
@ ( var — data ) Fetch the number stored in a 
variable. 

! ( data var — ) Store a number into a variable, 
+ ! ( data var — ) Add a number to the value stored 
in a variable. 

: F-demo 

dark 

Ox ! y i F 
70 X ! 10 y ! F 
10 X ! 18 y ! F 
40 X ! 15 y ! F 



Exercise One. Dctxvic a new instmction to clear Uie screen and 
put the message /O/fTH at the center of the screen in block 
characters. 



bar 


ir 


It****** 


post 


«i 


* n 


triad! 


ti 


*** " 


sides 


n 


■k * " 


tetra 


TI 


**** " 


duol 


tl 


** " 


duo 2 


IT 


* * " 


duo 3 


ri 




center 


11 


* « 
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newLine 
newLine 

newLine 
newLine, 
newLine 
newLine 



triadl 

sides 

sides 

sides 

sides 

triadl 



newLine tetra 
newLine sides 
newLine tetra 
newLine duo2 
newLine duo3 
newLine sides 



newLine 
newLine 
newLine 
newLine 
newLine 
newLine 



bar 

center 
center 
center 
center 
center 



newLine sides 
newLine sides 
newLine bar 
newLine sides 
newLine sides 
newLine sides 



FORTH dark 








25 X 


10 


y 


F 


32 X 


10 


Y 





39 X ' 


10 


y 


R 


46 X 


10 


y 


T 


53 X 


10 


y 


H 



: demo FORTH 20 8 62 17 box 21 at ; 

Exercise Two. Design a message yourself and display it at the 
center of ihe screen. 



Dr, C.H, Ting isa rtoled Foflti aulhortly who has made many significanl contribu- 
tions to Forth and Iho Forth Interest Group. His tutorial series will continue in 
succeeding Issues of Fsrtft Dlmen^ons. 



Don't Expire! 



Good things arc comi ng, and your continued 
participati on as a reader c )f Forth I Hmemicms 
is important to us. Please take a moment to 
renew or to extend your subscription. Mail or 
fax the mail-oidar form in this issue, or call 
the Forth Interest Group at 510-893-6784. 
Your comments are welcome. 



New Contest Announcement 



Call for Papers! 

Forth Dimensions is sponsoring a 
contest for articles about 



"Forth Development Environments" 

Write about: 
libraries, source rra'^'agenient, user interfaces, 

platfomm/macfiine/kernel independence, 
other topics suggested for this year's FOR ML 
conference, or issues not specified here which, 
nevertheless, relate to the general theme. 

Entries will be refereed. Papers to be presented at FORMt 
are eligible, but mtist be completed and received at our 
office by ^e contest deadline. 

Mail a complete hard ixtpy and a diskette 
(Macintosh 800K or PC preferred) to the: 

Forth Interest Group 
P.O. Box 2154 • Oakland, California 94621 



Cash awards to authors: 
1st places $500 
2nd place: $250 
3rd place: $100 



Deadline for contest entries is August 1, 1993. 
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Moms Fom. CawctLBOw 



Principles of 
IMetacompilation 



BJ. Rodriguez 
Hamilton, Ontario, Canada 



J. Compiler Directives (IMMEDIATE words) 

Mosi of Forth's control structures are implemented as 

compiler directives: IF ... ELSE ... THEN, BEGIN ... 
UNTIL, BEGIN ... WHILE ... REPEAT, DO ... LOOP. These 
words are executed, rather than compiled, at compile time, 
and arc known in I'orih as Immediate wurd.S- 

Forth also allows liic programmer to create new compiler 
directives hy defining words with the IMMED I ATE attribute. 

l.Use 

the Fortii compiler directives aie used in the same 
manner -vAien metaa}mpiling as when compiling "nor- 
mally". For example: 

: name 

word word IF word word THEN ; 

However, the definition of a compiler direciive — an 
IMMEDIATE word — is somewhat different in the meta- 
compiler, 'ilii.s is because iwo sct.s of actions need to be 
defined, l-irsi, tlie wcjrd's action when executed in Ihe 
Target system, as part of the metacompiled application. 
Second, the aoion the metacompiler must izks when it 
encounters the word. 

Consider ihe II' ... rH.-;:J e.xaniple. Suppose a new 
Forth kernel is being meucompiled. The result of the 
metacompiler is a dictionary of words, including a com- 
plete l-orlh compiler, ihai will mn on the Target sy.siem. 
Later, the programmer using the Target system will write 
programs with IF . . . THEN. So, a Taiget' action for IF and 
THEN must be part of the Forth kernel. 

But the Forth kerne! itself contain,"; many IF ... THEN 
constructs! These must be recogniA ci h\ the metacompiler 
while the kernel is being compiled, and the appropriate 
branches and branch offeets for the Target machine must 
be compiled into the 'target image. So, a "Host" effect on 
the Target image must also be defined for if and THEN. 

The same tiolds true for any IMMEDIATE word in the 
Target application. 

a) Defining the Target action 

Hiis is stra^tforward. The Target's action is defined 



just as any other Forth word to be executed in the 
Target, i.e., as a colon or CODE definition. The only 
difference is that the "preceifcnoe bit" in the name 
must be set, to indicate that the word is IMMEDIATE. 

The metacompiler's imEDlATE On the HOST vo- 
cabulary) will set the precedence bit of the last word 
defined in the Target image. 

So, the Target action is written: 



name 

word word 



. word ; IMMEDIATE 



b) IDefining the 1 lost action 

The Host action must be defined, in words known to 
the Hast, describing what operations are to be per- 
formed on the Target image. 

This is specified after the Target word is defined, using 
the word ACTS : to Specify the Host action, and the 
word IMPERATIVE to indicate that it is a compiler 
directive. 



: name 

word word . . . word 
HOST ACTS: 

host -word host;~word . 



IMMEDIATE 



IMPERATIVE 



Generally, the "host-words" will be words from the 
metacompiler lexicon, ^idi act on the Target image. 

c) Defining a Target aaion only 

It is possible to envision a case where a Target version 
of a compiler directive must be metacompiled, but the 
Host action is not needed. 

For example, .suppose a new Forth kernel is to be 
crcaicti which includes the unsigned loop word 
/ LOOP. The eventual user of the Taiget Forth will want 
to use this word. But this word is used nowhere within 
the Forth kernel, so a Host action for /LOOP is not 
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needed — the njetacompiler will never be called upon 
louse it 

In llus case, llie host acts : . . . IMPERATIVE clause 
may be omitted 

d) Defining a Host action only- 
It is also possible to envision a case where a Host 
action, but not a Target action. Is nequlred for a 
compiler diiccuve. 

For example, consider an embedded, "s^cd" af^il- 
cation, such as a mictowave oven written in Forth and 
burned iiUo PROM. Obvicxisly, the end application 
will have no tenninal, no programmer, and no means 
of extending the program. In such a case, the sizable 
part of the Forth kernel which implement.^ the com- 
piler can be on uticd. And, with no means of compiling, 
there is no need for compiler directives. 

What is needed is merely a word which executes in the 
Host Such a word is defined with die "native" : (colon). 



compiling environment is 
: IF 
: THEN 



COMPILE OBRflNCH HERE , ; 
IMMEDIATE 

HERE OVER - SWPiP ! ,- IMMEDIATE 



HOST 
: name 



host-word host -word 



(The word IMPERATIVE is not required.) This word 
will be defined in ihc "mirror" vocabularv' which h.is 
last been selected for DEFINITIONS, amidst alt of the 
mirror words. So, although this word wiQ reside in the 
Host's memory, it will appear in the Target's 
search order — exactly the desired effect! 



I'irst, the explicit instructions to the Host, to have this 
effect in the Taig^ image, must be defined. 

IF in the Host must compile the Target's BRANCH. 
Assuming, for the moment, the existence of a word such as 
TCOMPILE: 
TCOMPItE OBRANCH 

'Hie target's Diciioiiaiy Pointer must be slacked; 
HOST HERE (recall that tliis is the Target DP) 

Then the empty cell must be left for the offset: 

T, 

Tile blanch Ix; resolved when THEN is encountered. 
Tlie Target address of tlie offset cell is Still On the Stack. The 
cu r re J i [ i ") i i ! i ; > n ary Pointer is obtained: 
HOST HERE 

Then the offect is calculated in the Host. . . 

OVER - 

, and the result is stored in the Target image, at the address 
of the offset cell: 
SWAP T! 



2. Incrementation 

Building a compiler directive which will be used 
by the 't arget is straigliiibrward. An ordinary colon 
or CODE definition is compiled in the Target image. 
Then, a special version of immediate is executed 
by the Host whose function is to set the precedence 
bit in the Target image, in the last defined Target 
word. This is, of course, found from the LATEST 
which is maintained for the Target. 

Building the compiler directive which will be 
used by the metacompiler is .somewhat more in- 
volved. Bearing in mind the First Rule of Metacompiler 
Design, this discussion wUl focus on the concrete 
example of compiling the Forth phrase 

IF FOO BAR THEN 

Figure Eiglit shows tlie data which must be 
compiled into ihe Tai^t image by this phrase. IF 
must compile the Target's OBRANCH, a CODE word, 
and leave space for an offset. FOO and BAR, being 
ordinary Fortli words, compile normally. THEN 
resolves the branch by patching ihc correct offset 
after the OBRANCH. 

The Forth code to accomplish this in a resident 



Figure Eight. Qjmpiling IF . . . THEN (compiler directives). 



In "normal" Forth... 

... IF FOO BAR 






CFA of 


offset 


CFA Of 


CFA of 






OBRANCH 


to skip 


FOO 


BAR 





Usually done by: 

: IF ( -- 
HERE 



) COMPILE OBRANCH 
IMMEDIATE 



: THEN ( a ) HERE OVER - 

SWAP ! ; IMMEDIATE 

The Forth word immediate ineans, when in 
compiling state, to execute this word instead 
of compiling its CFA. 



To compile for the target... 

...we would like the compile-time action to be like: 

TCOMPILE OBRANCH T-HERE T, 
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The problem of writing a tcompi le was glassed over 
In this disaiMion, Its function is to compile the following 
word — which is a Target word — ^into the Target image. But 
this is exactly the aaion of a mirror word. So the metacom- 
piSer need only ensure that ihc mirror word OBRAHCH is 
executed, and not the Host's "native" OBRANCH. This is 
done: 

TARGET OBRANCH 

When does the Host perform these actions? When it 

attempts to "compile" the words it' and then into the 
Target— i.e., when the metacompiler parses ihe words IF 
and THEN and attempts; lo execute ihcir mirror words. 
(Recall that mirror words, when executed, compile their 
Target equivalents.) All that is necessary to change these 
words from "words which are compiled" into compiler 
directives, is a change in the run-time action of their mirror 
words in the HosL 

Forth provides a mechanism fur changing ihe mn-lime 
action of a word: DOES>. 'this implcmenlalion uses the 
Forth-79 DOES>, which acts by charvging the CPA of the 
word in question. The new CFA point.s to a short machine 
code subroutine CD0D0ES>), which re-enters the Forth 
interpreter for the high-level code which follows. 

So the Host word ACTS : should immediately execute 
DOES> to change the CPA of the latest word— a mirror 

word— and c:<^mpile 

the DODOE S> machine 
code. It then enters the 
compiling stale in the 
Host to compile the 
words ■w*ich describe 
the 11 O.St 's action for 
that mirror word. 

The result, for the 
word IF is shown in 
Figure Nine. 

The advantages of 
metacompiling by ex- 
ecuting mirror words 
should now be appar- 
ent' 

This is not exactly 
how the Image Com 
pilcr liandles compiler 
directives. I 111' [irob- 
lem of Defming Words 
(next sectiorO will in- 
troduce some new 
twists into ihe action of 
mirror words, and this 
will be reflected in the 
handling of compiler 
directives. 



3. Alternatives 

a) The absence of executable mirror words 

As not^ some metacompilers do not execute their 
mirror words, or don't maintain a mirror vocabulary at 
all. Inthesemetacompilers, the aciic^ns of all the Target 
compiler directives must be expliciiJy coded as pan of 
the metacompiler (usually in the TARGET vocabulary, 
or iLs cqui\'alent). 

Sonx: of liiese metacompilers tiavc diflioiky adding new 
ODrnpiler diieciivcs, once the mi^comptler is complctdiy 
loaded. 

K. Defining Words 

One of Forth's most powerful features is iJie ability to 
create new classes of words. A new dass is (fcscribcd by a 
Fortli "defining word," so named because it will hr ux-d lo 
create the new Forth words which are members of the class. 

Defining words are among the mast powerful tools of 
the skillful I'orth prografiKner, ,so it is a pity that many 
metacompilers provide littie f>r no means of including them 
in a metacompilcd application. Not so the Image Compiler, 

1. Use 

A brief refresher on defining wonds is in order here. 
Defining words use the <BUILDS ... DOES> constmct in 
fig-Forth; CREATE ... DOES> in Forth-79 and Forth-83. 



Figure Nine. Compiling IF ... THEN. 



HOST 





DODOE S> 


address of 


address of 


etc. 




machine code 


TCOMPILE 


OBRANCH 




TARGET IMAGE 



j ink 



C[-A 



address of tar- 
get's COMPILE 



address of tar- 
get's OBRANCH 



address of tar- 
get's HERE 



address of 


address of 


address of 




target's o 


target's , 


target's s 





precedence bit is set in the target 



TARGET 



IF COMPILE 
HERE , ; 



OBRANCH 
IMMEDIATE 



HOST ACTS: TCOMPILE OBRANCH 
HERE T, ; 

We need an IF to run in the target, and one for the host. 
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Fiaure Ten. Defining words. 



: CONSTANT 

<BUILDS , DOES> g ; 

64 CONSTANT C/L 



C/L 16.* CONSTANT B/BUF 



-LINE ... C/L TYPE ; 



FIEID DUP + CCMSTANT ; 



In general, we need to code: 

1 . a <BUiLDS action for ttie host to use 

2. a DOES> action for ttie host to use 

3. a DOES> action for the target to use 

4. a <BuiLDS action for the target to use 



Definition of constant iar 
target macfiine to use. 

1 . Host uses CONSTANT tO 

define a word in the target. 

2. Host uses a defined word 
(C/L) interpretiveiy. 

3. Host compiles a defined word 
into a definition in the target. 

A. Ihe word constant is 
compiled into a target detinition, 
for later execution by the target. 



Of course, in ihis c>>:amplc 
of a new Forth kc;rncl, llic 
eventual u.scr of ihe Target 
system will neeJ all tfie torn- 
poncnLs of the definitig word. 

To cover all contingencies, 
the metacompiler mustbc able 
to define: 

a) a <BUiiX>S action for 
the Host to use; 

b) a DOKS> action for the 
Host to use; 

c) a <Bt7lUDS action for 
the Target to use; and 

d) a DOES> action for the 
Target to use. 

The Image Compiler syntax 
for all of these operations iS: 



Throe "sequences" are involved in their creation and use [71: 
Sequence One is when the defining word is itself built. 
! '['his happens once. 

Sequence Two is when the defining word is executed. 
This cau.ses a "defined word" — a member of the class — to 
be built. This may happen many limes, v.ach linv ;Kiding 
a word to the dictionary. 'Ihe action to be taken during 
Sequence Two is specified by the <BUILDS clause. 

Sequence 'Ifircc is when a defined word is executed. 
The action which is taken dining Sequence Three — the 
common action of the new class — is specified by the 
DOES> clause. 

An example of a defining word is CONSTANT (Figure 
Ten). CONSTANT is itself a colon definition (Sequence 
Orte). Each time CONSTANT is executed (Sequence Two) 

I it defines a new word, a named constant. 'ITic aciiiin of -a 
named constant (Sequence 'l^hree) is to put its integer value 
on the stack. 

Observe, in Figure Ten, the many ways a defining word 
and its "children" may be used while meta com piling a 
Forth kernel: 

a) The Host may perfoma the deTming action, e.g., to 
create a CONSTANT which is in the kernel. 

b) The Tlost may need in execulf a dcHned word, e.g., 
to get the value of one ol the i'arget kernel's CONSTANTS. 

c) 'Vbe Host may need to compile a defined word into a 
Target colon definition. 

d) The Host may need to compile the defining word itself 
into another colon definition. CThis is not uncommon; 
many classes are built using CONSTANT and Specify- 
ing a different D0E3> clause.) 



: name <BtJILDS word word word (c) 

DOES> word word word ; ' (d) 

HOST ACTS: word word word (a> 

HOST DOES> word word word ; (b) 

.\ny nf these clauses may he oniiued. Particular in- 
stances where this would be useful are: 

a) TheHosKBtJILDSisnotncededifthisdefinir^word 
\>.ill not be used during the mctacompilation. For 
example, 2 CONSTANT could be included in the ker- 
nel; but it is not used durir\g the compilation of the 
kernel. 

b) Ihe Host DOES> action is not needed if no defined 
word will be used interpietively during the mclacom- 
pilation. For example, C/L is defined in the fig-Fortfi 
kernel, but its only use is when it is compiled into 
Target colon definitions. 

c) The Target <BUILDS aaion is frequently omitted in 
embedded applications. No rampilation takes place 
in ihc Trtrget system; all defined words are created 
d;;ring itie meiacnmpilatinn. 

d) 1 1 is pos.sible, though rather pointless, to omit the 
Target DOES> action. (VChy build a word in the Targpt 
image that only (he Host can use^ 

The defined word action in the Target may also be 
written in machine code, as; 

: name <BUILDS word word word (c) 

;COiDE assembly cod© <d) 

HOST ACTS: word word word (a) 

HOST DOES> word word word ; (b) 
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There is no provision to specify Lhe HosfsDOBS> action 
in machine code; blinding speed is not usually required 
during meta compilation . Should it be necessary, a separate 
CODE definition can be made in the Host, and used in the 
DOES> clause. 

2. In^ementcdion 

Note, from tl\c examples given above and in l-igyre I'en, 
that the Host must be able to compile or lo execute both 
defining and defined words. 

Compiling a word into the Target image is done by 
execiiiing iis mirror word. Both the defining and the 
defined words will }ia\"t' corresponding mirror words. But 
giving a 'large I word an executable behavior — as in the 
case of compiler directives — involves changing the mn- 
timc act inn of lhe mirror word. 

'lhe solution i.s lo give the mirror words both a 
compiling action and an executing action, both of which 
can be altered. 

This, of course, requires some means of distinguishing 
t>etween the metacompUing and meta-exeaOlng slates. 
Thus the variable STATE is resurrected. 

Figure 1 1 illustrates the form now taken by the mirror 
word. CHie reason for reserving a cell .should now be 
clear.) The compiling action is specified by the code 
address of the word; this points to machine code in the 
Host, and is changed with DOES> (see the previous 
section). The executing action is specified by a common 
Forth execution vector, which poini.s to a Forth word in the 
Host. 'Fhis difference is t>ecause llie former is invoked by 
the Forth interpreter, while the latter is invoked by the 
phrase 9 execute . 

The final definition of Constant is given in l-igurc 11; 
the resulting code in Host and Target — including one 
instance of a defined word — is shown in Figure 12. A step- 
by-step aii;dy,sis of lhe process follows. 

Sequence 1: When the code is metacompiled, 

; CONSTANT 

Builds the colon definition header (8 CONSTANT link cfa) 
in the Target, and the mirror word named CONSTANT in the 

Host '["he compile ariion of ihe mirror word is the default; 
the execute action is an error word. 

< BUILDS 

Are ( o:npiled into llie iargel image. 
DOES> 

Compiles the Target (;CODE) and the DODOES> machine 
code into the Taiga image. 

Are compiled into ttie Target ima^. 
HOST ACTS: 

Changes the execute vector of the mirror word lo point to 
the following code; builds a licadeilcss colon definition in 
lhe Host by compiling the adckess of the { : ) machine code. 
January 1993 F^tuary 3 



CREATE T, 

Are compiled into the Host. 
DOES> 

Compiles (DGES>) (described Ixilow) and ; S to end lhe 
colon definition in lhe llosi. *lhcn l>egins a new headerless 
definition, which will be the execution action (in the HosO 
of the "children." 

T@ ; 

Are compiled into the Host (; compiles ; s). 

Sequence 2: When 6 4 CONSTANT C/L is exeaited 
inierprctively, control is transferred to the first headerless 
definition described above. 

CREATE 

The metacompiler's CREATE — it builds a header in the 
Target image, and a mirror word of the same name (C/L) 
ts twuilt in the HosL 

T, 

Compiles the constant value (64) into the Target image. 

{DOES>) 

Which was compiled "invisibly" into the Host by DOES>, 
changes the execute vector of ifie new mirror word (C/L), 
to point to file seet)nd headerless definition des<Tibed 
above. It also changes lhe cod<: address of tlie new word 
in the Target image, to point to the DODOES> ponion of the 
Target's CONSTANT. 

Sequence 3: When C/L is executed in terpre lively, control 
transfers to the second headerless definition. (It is entered 
with the address of the mirror word on the stack.) 

Fetches the constant value (64) from the Target image, and 
puts it on the Host stack. 

Finally, observe thai the Target image has exaaly the 
form required by the <BUILDS ... DOES> construct (with 

the Fonh-79 enhancement). Roth CONSTANT and C/L can 
be used in the new Forih kernel. 

3. AUemaiives 

This implementation, tiaving distinct and separate com- 
pilingajidexecuiing actions for the mirror words, is unique 
to lhe Image Compiler. 

L, Compiler Directives Revisited 

1. Ifftplemeniaiion 

Figure 11 also alludes to a fringe benefit of this 

approach. Since each mirror woid has a separate executing 
vector, any word in the Target image can be given an 
interpretive aOion in the Host 

For example, the mirror word DUP normally compiles 
llie address of llie corresponding CODE word in the Target 
image. It may be desirable to use dup interpretivcly— 

Forth Dknensions 



number of times. 

d) The first ctefinition having fliat name 

will be ihc detinition used to resohre 
any forward references, 

e) I'he usual logic of search order in 
Ponh vocabularies does not apply to 
forward referencing. 1-or safely, for- 
ward-referenct;d. words should be 
uniquely named, and forward refer- 
ences should not cross vocabularies, 
Doing otherwise may lead to unpic- 
dictabie results. 

AH forward-referen<£d wcads must 
eventually be definedl 



Figure EleveiL Improved mirror word in the l-losL 









code 


CFA of 


address of 


3 


DUP 


link 


address 


a word 


this named word 








in host 


in host 


in the image 



Action to take 
when in compiling 
mode. . . 

e,g., compile ihe 
address of the 
target's dup. 



Action to take 
when in interpretive 
mode... 

e,g„ execute the 
hcet's dup! 



Jhe hosi must keep a metacompiler STA TE! 
What we would like to write: 

TARGET : CONSTANT <BUILDS , [4] 

DOES> e ; [3] 

HOST <BUILDS T, [1] 

DOES> T@ ; [2] 



affecting the Host stack, of course — during metaccHnpila- 

tion. By setting ttie executing vector of the mirror word to 
point to the Host DUP, this is achieved. 

There are so many cases like this, where a mirror word's 
execution is vectored to a single Host word, that a special 

version of ACTS : is defined; 

HOST ACT word 

Changes the execution behavior of the latest mirror word, 
to the .single Forth word in the Host 

M. Forward Referencing 

Forth as a language provides no formal support for 
forward references. All words must be defined before ihey 
are used. So it is paradoxical that die Forth kernel itself 
depends on the use of forward references. This problem 
must be considered in the metacompiler. 

Use 

Forward referencing is automatic in the Image Com- 
piler. A word which is to !x' forward referenced may Ix^ 
used in a colon definition just like any other word: 

: name word . . . f wd-word . . . word ; 

The Image Compiler will compile an empty cell in the 
place of f wd-word. Later, when f wd-word is defined, its 
address will automatically be placed in this definition. 

The rrtllowinf. niles and restrictions apply: 

a) Forward references can only be made within colon 
definitions. 

b) Compiler dirertivcs HFid nihcr IMMEDIATE words 
may not be forward referenced. 

c) The same word may be forward referenced any 



Wiile forward referencing is active, 
there is no such thing as an undefined 
word — words are either defined, or are 
expected to be defined later. Wticn for- 
ward references are not being used, this 
will deprive the programmer of useiul 
diagnostic information. So, forarard refer- 
encing can be enabled and disabled with 



FORWARD ON and FORWARD OFF 

2. Implementation 

The Image Compiler handles forward references by 
havirtg the Host rememlx'r [he location of all references to 
an unknown word. When that word is later defined, all the 
remembered locations can be patched with its address. 

First reference. Figure 13 illustrates the Host's process- 
ing the first time a word is forward-referenced. When the 
word is encountered in ihc input stream, the Most will 
attempt lo find and execute the mirror word of that name 
in the TARGET vocabulary (or sub-vocabulary). Failing 
this, the I lost will attempt to convert it as a number. Failing 
this, ihe word is considered undefined, and the Host 
presumes dus to be a forward reference. 

An empty celt is compiled into the Target image, where 
the address of this unknown word belongs. Then the I lo,st 
creates a dictionary entry, in the CURRENT mirror vocai>u- 
lary, using the name of (he unknown word. 'Iliis is how the 
Host remembers the name of this word, so that it will be 
recogni^cid when ii is defined later. This diclionars' entry - - 
a for ward- referencing mirror word— contains a pointer to 
the Target location to be patched. 

Second and subsequent rcfcn-nccs. 'I'he ne,\i time thai 
word is u.sed, it will be found in the dictionary! What is 
found is not the normal, self-compiling mirror word, but 
the forward-referencing mirror wfird (.lc:st:ribed above, This 
word is given a special conijiile tirne ;kU(iii; 

a) Reserve an emfMy cell in the target, to be patched later. 

b) Storetheaddr«softhe previous location-to-be-patched 
(as found from the mirror ^^ ord") in this rrscn-ed oall. 

c) Change the mirror word to point to this new reserved 
cell. 
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Figure Twelve, Defining words— tlie result 



64 COHSTANT C/Ii 
HOST 









host's 


host's 


address of 


8 


CONSTANT 


link 


compile 


interpret 


target's 








action 


action 


CONST 



address of 


address of 


address of 


address of 


(:) code 


TCREATE 




;s 



address of 


address ot 


address of 


(:) code 




;S 









addr of 


addr of 


addr of 


3 


C/L 


link 


compile 


interpret 


target's 








action 


action 


C/L 



TARGET IMAGE 



8 


CONSTANT 


link 


CFA 


address of 
target's <BuiiiDS 


address of 
target's , 



addr of 


D0D0ES> 


addr of 


addr of 


target's 


machine 


target's 


target's 


(;CODE) 


code 


e 


;S 


- _. 









3 


C/L 


link 


CFA 


64 



The cITcct of ihesc aciions is to luiild, in the Target 
image, a linked list of all ceils to be patched with the 
address of this unknown word. The forward-referencing 
mirrnr word contains the pointer to ihe head of the list. 
Each different forward-referenced word (i.e., each un- 
known name) will have a separate linked list. See Figure 
14. 

Definition of the vxyrd. When the word is finally de- 
fined, TCREATE will find iLs name is already in use. Before 
reporting this as a duplicate name (a Forth te-definition), 
TCREATE checks K) see if the prior use is a foiward- 
referencing mirrnr word. Cl'his test is performed by checking 
the execution vector, since forward-referencing mirror 
words have a specific and unique action) 

If there is a forward reference, the head of the linked list 
is fetched from the mirror word. The address of the new 
definition is patched into all the entries of the list, replacing 
January 1 993 Feiyruary 



the links. 

Finally, a nonnal self-com- 
piliiig mirror word is created 
for the new definition. 

Note that any Forth word 
may be rorward-iefcfenoed in 
this mannen colon definitic»is, 
CODE definitions, data struc- 
tures, or defined words. 

Later "backward" refer- 
enc&. Thanks to the search 
order of Fortli, all dictionary 
searches for this word will now 
stop at (he new, normal, mirror 
word. To all appearances, the 
normal mirror word completely 
replaces the prior, forward- 
feferendng mirror word 

Thus, when the word is 
next encountered in the meta- 
compilation, the normal mirror 
word corresponding to its defi- 
nition will be found and 
executed, compiling its Target 
address. No other forward ref- 
erences will be made for this 
word. 

Which is exactly the de- 
sired result. 

3. Issues 

a) Disabling f(HW3id refer- 
encing 

In most application pro- 
gramming, an undefined 
woid is an cnor condition 
and should be repoittd 

as sucii. Forward refer- 
encing interferes with this. 



I'orivnrd referencing is 
disabii 'd by selling a flag. 
This fiag must Ix' tested in iwn jilares: lo prevent a 
forward-reference minor word from being constructed 
on the first occurrence; and within that mirror word, 
to prevent subsequent occurrences from tx;ing linked 
into the list. Forward referencing can be turned on and 
off many times within the metacompUatioa 

4. Altematitjes 
a) i'83 

The Laxen-Peny F83 metacompiler uses a forward- 
referencing scheme similar to th^ of the Jn^agc 
Compiler, except that it is manual inscead of auto- 
matic. 

Each word which will be forward referenced must be 
declared prior to its first appearance, by the phrase 
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Figura Thirteen. Forward references (first ooourrence). 
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N. Getting the Image Into the Target 

The Image Compiler is now complete. It is 
capable of metacompiling programs ranging 
from a few hundred bytes oi emlDedded applica- 
tion code, to a TuU Forth k^tiel, to a complex 
Forth application wiili multiple vocabularies and 
uscr-creaied defining words. WliaL remains is ihe 
problem of getting this metacompiled code into 
the Target systeriL' 

Via hex file 

Perhaps the most useful method in the IBM 
PC environment is to create an MS-DOS file with 
the Target's binary image in some generally 
recognized formaL 

The Intel hex format is widely accepted. 
Many operating sysicms can convert Intel hex 
files to exe[:uiabic files. Most EPROM program- 
mers, and many resident monitor programs (e.g., 
the Zilog Supers Monitor) will accept the Intel 
hex format. 

The word CF.xrlLE (screen 43) will copy a 
range of I'arget memory to an MS-DOS file, in the 
Intel hex format: 

address length HEXFILE name 

The .starting address is the origin of the 
metacompilation — set in the source file, before 
the first definition, by the phrase: 



DEE^R name 

DEFER builds a word in the Host which maintains a 
linked list of forward references, in essentially the 
same manner as ihc Image Compiler. After the for- 
ward-referenced word is actually defined, the forward 
references must be explicitly re.solved by the phrase 

' defined-name RESOLVES refexence-name 

which has the unfortunate consequence of requiring 
die name used for forward references to be Afferent 
than the name used in die eventual definitioa 

b) Metafonh 

Mctaforth and many similar metacompilers require all 
forward references to be explicitly patched by Ltie 
programmer. This lisually means knowing the loca- 
tion to be patched as a byte offset within a colon 
definition, ll llu^ definition is changed, tiic jialch offset 
must be edited accordingl) Normally, all of the 
patches are performed, in a load screen, as the laststep 
of metacompilation. 

To reserve the empiy ceil which will he patched, a 
metaconipilcr directive (often called GAP) is used. 
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address HOST DP ! 

It is frequently convenient to define an EQUate to 

contain this address, so that it may be referenced by some 
easily remembered name (like ORIGIN) after the compi- 
lation is finished. 

At the end of the compilation, the first unused address 
in the Target dictionary can be obtained with: 

HOST HERE 

and thus the length of the image can be found with: 

HOST HERE ORIGIN - 

CH would be a simple exercise to write this as a i-'orth word; 
but so it's been advantageous lo know these addresses 
before doing the download.) 

2. Direct download to Target orEPKOM 

It would he possible to write a program, i n I "ortti, which 
communicates directly with the Target system (via its 
rcsidcni monitor program) or an EPROM programmer. 

The difficulty is that every target system and every 
EPROM programmer has a slightly different protocol for 
communication over a serial link. So a different download 
program is necessary for each different piece of target 
33 January 1993 February 



Fourteen. Forward references (subsequent). 
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hardware. (When hex files are used, these dilTcrenccs are 
handled by the manufacturer-'supplied host software.) 

Still, for a frequently used target device, the time savings 
in being able lo tiinvnload directly from Host memory 
would make a Forth download program usel^l. 

3. M&acornf>ilin^ to Tat^et memory 

Carrying this logic one step further, if the Target system 
has a resident monitor program which allows memory to 
be examined and altered over a serial link, and if this 
system is connected to the Host ai the time of the 
metacompilaiion, it would be possible to metacompile 
directly into the Target's memory! 

Tliis obviously would necessitate rewriting the Target 
memory words (Tg, T 1 , etc.) to transmit commands and 
parse responses over the serial link. A slight speed penalty 
is involved, but sinc^ memory transfers are not the critical 
element in compile time, the degradation may not be 
noticed. 

This leads to possibilities of fully interactive metacom- 
pilaiion, where wcirds can be compiled one at a tinier in the 
Target, tested individually, forgouen, and redefined... 
making tht; metacompiler environment every bit as inter- 
aaive as a normal Forth system! 
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screen f 87 

( Sepea [ooHfiilB] ( } HEX I S 6 se bj£ 12:39 ) 
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screan • SB 
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(letters, continued /mm page Sj 

Fast ?2-bJt Integer Square Root 

l^-ar Marlin, 

This is a simple— even primitive — contribution, but it 
may be useful to some Forth users. 

I ha\e \xxT\ wriung an application in TF<')rth (Delta 
Research) and, t or space reasons, I did not want to use JForth's 
floating-point lilwary. I derived integer trigonometrical func- 
tions from the article by Phil Koopman, Jr. (FD 1X/-1), but I 
also needed a 32-bit intejjer square root function. Delta 
Keseaich supplies a Newtonian successive af^rcximalioii 
square root uti!it\' which i.*; crcdilcci if) R.L Eiavies (f'DVlW). 
Etespiie an added convcrgentx' tcsi, the result is relatively 
slow, averaging over Ltiree niilli, seconds per root 

Back in the days when ilie Intel 8080 represented die state 
of the art, J derived a direct ctanputation square root 
alguriihni. '1 ills I h;ive disintcned and cun verted to Fortli. 
'fhough it always executes a loop 16 times, it uses no divisions. 
On my standard Amiga 500, it confutes the root of a 32-bit 
number in under a niillisccond. It should not (wove too 
dinicult to extend it to 64 bits. 

Since it lies in an inner loop in my application, I plan to 
implement ihis nlgorithm iti 6B000 machine language. How- 
ever, its incarnation in lorih may Ix; of use to others as a 
program speed-up device, .\s shown litre, it reiviras boifi the 
root and the remainder. The latter is tlie difference between 
the input number and the square of the root., It ma>' Ix; used 
to round up the root, or can be dropjxid, as the users wishi'.-i. 
A zero root and a negative remainder indicate that the input 
number was negative. 

Kind regards, 

Tom Napier 

One Lower State Road 

Norfli Wales, Penn.sylvania 19^154 



32*liit Integer Square Root 

: SQRT { 32 -bit nuittoer — root remainder ) 
\ Root square plus remainder equals input 
\ In comments, P is the processed input, 
\ Q is the result, and S is a power of two 
\ which steps by 1/4 per loop 

DUP 0< \ test for nogative input 

IF DROP -1 \ flag negative input 
ELSE \ initial Q 

SWAP 1073741824 \ initial S, 2"31 
BEGIN >R \ keep S on return stack 
DUP 2 PICK - R8 - ( Q P P' ~ ) 

DUP 0< \ is P' (= P-Q-S) negative? 
IF DROP \ restore P 

SWAP 2/ \ Q := Q/2 

ELSE NIP \ use P' 

SWAP 2/ m + \ Q := Q/2 -t- S 

THEN SWAP R> 2/ 2/ \ S := S/4 

DUP 0= \ is S zero yet? 

tJNTIL DROP \ dun^ S 
THEN ; 
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Exploring Forth Issues and Promoting Forth 

Mike Elola 
San Jose, California 



To gain acceptance, a programming language needs to 
salisfy many needs. 'I'wo of these needs are interrelated and 
lead to increased programmer productivity. 

First, a programming language should offer native fijnc- 
tions tliat impart as much utility as possible. The urufomi 
delivery or this functionality is of ke^n imponanoe so that 
source code portability is ma^mized and so that language 
dialects are minimized. 

Language uniforinity is partly a function of how well tlic 
language implenientors breatlic life into a language, Nonc- 
ttictess, a cicar and well-under^itt k n.1 language spcdiication 
oifeis the best hope of establishing uniformity amongst 
implementations. It is in the best intereste of everyone that 
agreement is reached over the language and that the 
language specification is elaborated in one doaimcnt. (The 
ANS !■"( )nh .s|x:cirication offers llic lx:st ho[x; for l-'orth lo make 
progress regarding this critical first step to programming 
lar^uage acceptance.) 

By delivering uniform and widely useful fiuKlions, a 
programming language synchronizes application code to a 
single, consistent processing ni(x.lcl. 'Ihis is an irnport.mt 
advantage that high-level languages have over assembly 
language— particularly for the porting effidendes that are 
passible. 



Code relocatability and 
intermodule routine calling are 
the thorny issues... 



MiTien application code is written in a high-level lan- 
guage, at least two la>'ers of ftanctionality exist. Low-level 
functionality is consolidated in the language kernel, which is 
not dependent on the applicatioa Even this gross partition- 
ing reaps a reuse benefit that cannot be obtained in assembly 
language. Most of the porting effort for such an application 
will be ttie creation of a language compiler for a new 
processor. However, the language jioil iias gre:il rtiu.se 
potential, so tliat work is likely to be amortized across many 
projccis. Moteovcr, most of the routines developed in a high- 
level language are readily reu.sable — regardless cf the plat- 
form they were developed for originally. In these ways, a 
high-level language can fuel eHidend^ that cannot be 
equaled by any assembly language. 

A programming language takes a second big stride 
tov^d acceptance by piovidii^ a facility to subdivide 
programs into modules wteh distinct InEerfaces. Ifeven gross 
pajtitioning of an application (into a kernel component and 
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a programmer-supplied componenO has high code-reuse 
sigruficance, ilsen a more granular partitioning can lead to 
greater opportunities for code reuse. 

You should be able to create these modules in a uniform 
way. You should have a uriiform way to engage code 
purchased from a library vendor. Furthermore, you should 
have a compiler that can determine w^hen the module's 
j interface is not being honored properly. These measures 
help you reuse code written by others. The efficiencies diat 
can be gained throu^ such combinations (rf measures is 
widely acknowledged. Look at Che advertisements in other 
programming journals as well as the growing number of 
articles discussing the creation and use of libraries. 

I.anguage.s designed with consideration for such needs 
will include a formal lexicon for declaring llie interface (or 
usage rules) for newly developed routines or modules. 
Besides establishing the beginning and end of a module, you 
may also need away to hicte elements that are not part of the 
module's visible interface, such as instances of data struc- 
tures. 

As a library user, you do not nec^arily need to see 
source code. For the sake of writing portaHe code, you 
should not have to be concerned with ihe implementation 
details of either the language or any libraries you might be 
using. Offering libraries in a precompiled form suits that 
purpase. Only the source code that defines the interface has 
to be offered to enable you to correctly use tfic mc^dulc. 

The source code tliat sets up the interface for a module 
also provides information the compiler can use to help 
ensure that the interface is used properly. Many languages 
can verify that you are using the correct names for the 
precompiled routines as well as using the correct number 
and type of parameters. 

Enhanced support for modules (or code reuse) helps 
create the ccunmeroe that library vendors enjoy. The library 
vendor becomes preoccupied with porting the same module 
to various platforms and with assuring that a unifctfm 
interface is served xo each application despite any platform 
differences. 

.'\dding suppon for modules docs not automatically 
dictate that we transform modules into libraries. Without 
adding all the trappings of a library, separate or redundant 
declaratiCMi of the module interface is still possible: (1) in the 
central location where the complete source code for the 
module lives, and (2) as many client locations where .source 
code must be compiled that exert: ises the inodLik; i me i face. 

The inability to preoompile shared modules may not be 
a siginificant concern. However, the ability to independently 
compile modules does become a big concern when projects 
require more than one programmer. Code rekjcatabiliiy and 
intermodule routine calling arc probably the tlioniy issues to 
deal with here, not module precunipiling iLself. I predict that 
dynamic libraries will be extremely popular^ so when Foith's 
full-bloodted support of modules finally arrives, it should 
include a means for late bindttig of a routine inside a modile 
to its callers outside the module. 

By making it easier to reuse code across many different 
projeas, module support that .stops short of library .support 
still offers a valuable boost — even for a solitary programmer. 
At the very least, such support should involve a uniform 
lexicon for dedaring the interfaces for routines. 

Implementation hiding occurs whether functions are 
standardized as a native component ol a language or if they 
are precompiled and made accessible ihrou^ its declared 
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interface 0br which the compiler can check client code for 
compliance). Either way the pn^iammcr need not be con- 
cerned with how the function is actually coded, just how it is 
engaged to suit the syntax requirements of the language or to 
suit its cxpliritly declared interface. 

Furthermore, the portability of vast amounts of application 
code is improved, due to the uniform functions of a standard 
langimge or the frequent use of Rmctions that serve as a 
module interface, '["haturuformity can help commit us to more 
unifoim ways of .sfxi^dfyiiig curiain funcuoas, reducing the 
amount of graLuituui diversity cxhibiLcd by our cnllecUve 
application code. A directly related ctTccl is the improved 
readability of all application code that makes use of popular 
modules. The contemplated increase in the readability of Forth 
applications can only come about in such a way — no substitute 
approach appears to exist that comes anywhere near having 
the desired effect. 

This discussion iias not paid adequate homage to l-'ortli's 
virtues in areas related to program partitioning and code reuse. 
Ihave offered a viewpoint slanted towards the perceptions and 
understanding of (Sk larger programming community. Per- 
haps arKiiher essay will be written to offer an opposing, or 
I'onh centric, point of view. 

Norit-lhii'k's.s, mainstream prnt;ranimin^ languages and 
mainstream programming practices recognize the need for 
separate declaration of interfaces. C now has fxinaion proto- 
types to add to the long-standing practice of using header files 
for ease of reuse of data type declarations. Those reused data 
type declarations help synchronize the structure of any data 
that rnu.st remain visible to client routines — or synchronize the 
daia structures for which pointer references must be passed, 
as parameters to client routines or as return values from dient 
routines. 

If only to counter the perception of Forth as m outdated 
language, we need to transform stack comments into a fbrrral, 
standardized mechanism for interface declaration that can be 
scaled up to the module level. 



ANS Forth Update 

The X3JH committee convened in Ociolx;r 1992 to 
respond to coniments resulting from the iwo-nionth public 
review ending in August of that year. That review period was 
necessary due to substantive changes made after the first 
four-month public review period ending in February of 1 992. 
Because a few substantive change."; were mnde at the 
October meeting, there will be yet another two-mon[h public 
review in early 19^3. 

A January meeting is taking place in Los Angeles, 
California to contemplate a reorganized and reformatted 
version of the current draft proposal. 

Mitch BratUey retx>rts fewer comments (15) rcoeh'ed in 
the stxuiui public review cycle, and fewer .substantive 
changes made in its aftermath. Accordingly, committee 
members are optirrustic about the prospect of <ibtainingANS 
approval for a Forth standard sometime in 1993. 

Amongthesub^antive changes that came about as a result 
of tlie second review period are the obsolescence of TIB and 
#T I B Ctlicy are not immediately eliminated, but are among the 
coiiL- oiled exiensions). The single word SOURCE is their 
rcplaceineiii. SOURCE a'tunis an address and a length. A rvew | 
word, S LITERAL, was added to compile Strings. Also, a newly 
added clarification requires that an interpretive mode be 
ptesent before complianoe widi ANS Forth is .satisfied 



SEPiEMBtH 1992 

LaboiatoryMicrosystemsannourwed WinFoitti, aForth- 

83 implementation of Kortli that takes advantage of tlic 
grapliicai user interface pj'ovided by .Vlicrosoli Windows 
(version 3.1) in protected mode. It supports all Window 
API fiinctions, such as callbacks, dialogs, menus, and 
icons. Traditional command-driven applications are also 
supported through words such as KEY and EMIT in 
tandem witfi a resizable console window. No royalty or 
licensing fee is required to distribute Windows applica- 
tions that you create with W'ini'oiih. 1 Vices range from 
$100 for the basic version (on-line iiypcrtcxt documenta- 
tion only), to $495 for a pnfesional version that supports 
DLL creation and includes source code for stipplied 
utilities. Forusersof the professional version, the complete 
source cixJe — including C, M.AS.M, and Fonh cixle — is 
also available for an additional premium. Upgrade prices 
are offered to registered users of t)R/Fo<th and PCVFoi4i. 
The prices of the up^des rai^ from nothing to $250. 

FORTH, Inc announced a new release of its 32-bit 
polyFORTH software development system. licsidcs nin- 
nitig in protected mode with DOS 5.0, it works with XJVIS 
as well as VCPIservers. The release sports eril^rKededitofs 
and utilities for source code m^iintenance .Mso in dm led in 
the $1,495 price is a muliit.i.sking ital-iime exctuiive, 
documentation, complete source code, and the ability to 
link to subroutines written in C and other languages. 

OCTOBER 1992 

R3RTH, Inc announced a new release of its EXPRESS 
Event Management and Control System for process 
control and factory automation applications. Besides 
enhancements and new I/O drivers, a historical trend 
recording feature is added. New driver support is added 
forOPTO-22 Optomux and .VIodicon \'9M. 

ExpressLite, a $195 demonstration version of EX- 
PRESS now supqxMte limited (digital and analc^ inputs 
as well as up to 256 simulated inputs. Use a PC to cf)nlrol 
simple experiments or devices through a graphical 
display that yoti can tailor for a simple apparatus 
controllable by one analog outputandtwoanalog inputs, 
or eight digital outputs and inputs. EXPRESS retails for 
S6,875, while ExpressLite retails for SI 95 Both sy,stems 
require 80386/486 computers with 4 Mb of RAM and VGA 
graphics display. 
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('Back Burner, "from page 43.) 

Back to the Future 

Sometimes the path of advance is a seeming regression. 
For many applications, the proper solution to the problems 
of real-time control and instnimentation lies rK^ in the 
application of faster computers addressing more memory 
but, ralhcr, in simplification of directly imerfaced hardware; 
and software. In an interrupl-driven environment, even a 
slow eight-bit processor may prove more effective than a hst 
386 PC-compatible. 

When designing a compuier system for control and 
instrumentation, maintainability demands thai llie critical 
portion of the system consist of components designed and 
standardized for industrial service. Such components may be 
in the form of standalone boards or they may Ix; bus oriented 
The most widely used industrial bus is the STD bus. With 
support from a lai^ number of domestic manubcturers, an 
installed base second only to the IBM- PC, and a hi.slory of 
approximately 15 years, the STD bus allows assembly of \ 
systems which will \ie maintainable for years U> conic. 

At some sacrifice in reliability arxl maintainability of the 
system, non-critical portions, such as a graphical user | 
interface, may Ix; relegated to an IBM PC 'BIOS MS IX)S 
platform which communicates with the embedded system 
via a serial link. Such a compromise may be necessary to 
satisfy customer demands within a reasonable time frame 
while staying within budget. To insure against downtime in 
case the PC-hosted interface goes south, the embedded 
software can be written to accommodate a substitute inter- 
face, such as 3 video terminal, a printing terminal, or a laptop 
running a terminal emulation program. 

Training WKeels 

As f^romised, the acconii^anving^ichcmaiic I pages 40-11! 
and parts list document a reproducible, low -cost single- 
board computer (SBQ whidi will serve as a trainer for our 
investigation of metacompilation and embedded program- 
ming techniques. 

Some re a tiers may p reefer to utilize one of the numerous 
8051-family SBCs advertised in compuKM" and electronics 
magazines. The advantage cjf the SBC presented here is that 
it provides for software development apart from uac of 
EPHOM progmmmer or ROM emulator, while making avail- 
able an unfettered 64 Kbyte address space. (Well, almost 
unfettered. Tlie up[X!rmasi eight bytes of the address space 
are dedicated to a parallel interface.) 

The Scheme of Things 

The 8051 family supports what is termed a TIamard 
architecture in which the 64 K read-only code space (RO.M) 
and the 64K read/write data space CRAM) are distinct The 
spaces may, however, be corribined Into a single 64K region 
by means of external hardware. In our SBC, a pair of 32K 
RAMs are mapped from UOOU to ITTi- in the data space, and 
a single RCai is mapped starting at 0000 in the axle S|%ioe. 
Processor port pin P 1.2 ("switch enable" line SWKN) and ttie 
74153 data selector control the memory map. Line PSEN- is 
the processor read strobe for external ROM; line RD- is the 
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processor read strobe for external RAM. Note that a signal 
name des^nates the active Q.e., assene<D state; thus, FSEN- 
is low when asserted, whereas SWEN is high. 

The ROM is accessed only while RDP- is low, which 
occurs only when die data selector routes SWEN- to RDP- 
while SWEN- is asserted, (Note that asserting SWEN asserts 
SWEN-.) SWEN- is routed to RDP- only when PSEN- is Uw 
and RD- is high; this combination of PSflN- and RD- also 
routes S WHN to RDM- but, if SWiiN is asserted, the active-low 
CHitput enatdes of the RAMs and the adive-low read enable 
of the 8255 do not respond. Thus, a processor read-from- 
RO.M instruction accesses code space of our SBC only if PI .2 
is high. 

If SWEN and PSEN- are low and RD- is high, then SWEN 
is routed through the data selector and RDM- is asserted, so 

that pr(K:es.s<)r read from ROM {n.-iiniciions access the data 
space of our SBC. In ihLs manner, code and data .spaces are 
effectively combined Into a single 64 Kbyte address space. 

Note that proccs.sor rcad-from-R.\M instnictions a.ssert RD- 
raihcrthan PSEN-, with the result that the data seleanr routes ! 
VCC Gogic high) to RDP- and GND Oogic !ow) to KD.M- 

Thus, the output enables of the RAMs and the read enable of 
the 8255 are asseited, whereas the output enable of the ROM 
does not respond. 

Since 8051 instructions -which write to memory do not 
assert PSEN- (i.e., writes are possible only to data space), it 
is a simple matter to create a routine wliich, while mnning 
from ROM in code space, dowr^loads to RAM in data space. 

Upon power-up, processor port pins are hig^. Thus, the 
power-up entry point is address 0000 in ROM. Initialization 
code in RtJ.M can Ijranch to a simple monitor which provides 
serial download capability. Once download is complete, tlie 
downloader need only write a zero to port pin PI .2 in order 
to transfer execution from ROM to RAM. Note that, with this 
.sclieriie, the entr\' [xjint for code in RA.M is no; 0000, rather, 
it is the RAM addiess equal to\hc ItOM address following the 
instruction which writes a zero to port PI. 2. 

To Wrap or Not to Wrap, 
That Is tfae Questton 

Etoubdess there are a few brave souls who will, as did the 
author, undertake constmcdon of a wire-wrapped version of 
the beast. The Ix'st prophylactic availi^le to the wire-wrap 
builder Ls a board which provides a ground plane and is 
liberally furnished with bypass capacitors. Connect a 0.1 mf 
ceramic bypass capacitor directly tx'tween th(; VCC and 
ground terminals of each IC .socket; keep the leads short. 
Distribute over the board $e^%ral electrolytic capacitors 
(preferably tantalum, in the range 1 to 50 mO between the 
VCC bus and ground. Verify capacitor polarities before 
applying power. 

The less adventuresome will welcome the efforts of FIG 
member Ed Sisler of Santa Cruz, California who is designing 
a printed circuit board for iJie device. He plans to ollei any 
combination from a bare board lo an assembled and tested 
unit, Ed also can provide EPROMs containing the downloader. 
If tficre is SLifficieiit iiuetesl, he \vas exprc.v'ved willingness to 
design and market an inexpensive iiOM emulator. Ed can be 
reached (hrough the author, or on GEnie (address E.S1SLER). 
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A Shopping List 

When shopping for pans, note thai loading probiems can 

result unless Ltic Sfx^dficd logic family (i.e., HC or HCf) is 
used; make subsuLuiions only if you underslaiid ihe consc- 
quenoes. The crysial can be virtxialiy any 1 ! .0592 MHz rock, 
regardlcs.s of raicd load capacitance and design circuit 
configLiralic^n (i.e., scries resonance or parallel resonance). 
CI :md r2 are disk ceramics. Bypass capacitors C3 through 
C8 can be either ceramic disk or multilayer ceramic. Discrete 
resistors can be used instead of rcsist< ir pjt ks; the smallest 
typically a\ :i ilnblc a rc 1 '8 watt, which i,s nv nc ihan ample. D2 
can be a garden -variety LED; it serves as a t(jnvenieni 
diagnostic tool to facilitate software development. Ql iso- 
lates port 1 from ihe loading effects of D2. Dl can be a 
garden-varierv' switching diode. D3 provides reverse-polarity 
protection, and can be a garden variery power diode. C8 is 
to guarantee stability of the 7805 regulatory for this purpose, 
C8 should be located within an inch of the 7805. A suitable 
power soiirce is a wall-mount supply furni'ihing kj 15 volt.s 
DC at a few hundred milliamperes (the 7805 requ ires an input 
of at least 7 volts). The author's prototype draws less than 100 
mA. 

The slowest commonly available IiPKt).Ms have a maxi- 
mum access time of 250 nanoseconds; this is more than 
adequate for an 8051 running at or below 12 MHz. Although 
a 32K X 8 (27256) EPROM is shown on the schematic CU9), 
an 8K X 8 (276^) can Ix; used by a simple wiring change: 
disconnect AI4 from pin 27 of U9 and tie pin 27 to VCC. 
EPROMs should be CMOS O e., 27C256 or 27C64). 

The DB25S connector facililatc.'s connection to external 
devices, including Centronics printers. Since each pin is 
connected to a programmable I/O line, the parallel port is 
software configurable. 

I hc bate necessities for constmction and checkout are a 
logic prolx^ of the $15 variety, an inexpensive (S20 to S30) 
VOM (volt-ohm-mitliampere meter, digital or analogue, used 
mostly to verify polarity and continuity), a soldering iron and 
tip-cleaning sponge (a damp rag will seive), miniature 
diagonals Ofor cutting component leads), and a few feel of 
rosin-core solder. Miniature needle-nose pliers, a soldw 
sutki 'i . and a magnifying lens are not essential, but will be 
found to be more than useful. 

Miscellany 

headers using anotlicr SliC as a uainer, and those working 
with other processor families, will have need of a ROM 
emulator or the combination of EPROM programmer and 
ultraviolet EPROM eraser. HG member Frank Scigeant 
markct.s :in in(.:.\j>:nsive EPROM progranimer (see his article 
in ilic September/October 1992 issue). "11 le author lecendy 
purchased from Digt-Key a Dataerasc IT ultraviolet eraser 
witli timer, manufactiired by Walling Company of Tt-mfx;, 
Arizona. I am extremely pleased, both with the (.iesign and 
performance of the eraser and with the manufacturer's 
service policy. Tire instiuction manual contains a tutorial 
covering EPROMs and the producticKi of ultraviolet light 

The circuitry of the trainer wa,-; designed by Y]C, mernK^r 
Mike Foley of Houston, Texas who also compiled the parts 
list. Mike proposed the scheme of transferring execution 
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from ROM to RAM. The author wire- wrapped and tested the 
prototj^. 

IniUali/ation/dow nloadei code v/ill be posted on GEnie, 
ajid will be available directly I'rom the author^ kindly indude 
an SASI; or a postage stamp. 

llic preliminaries being now complete, the next episode 
will begin our exploration of meiacompilation. Mcanwtiile, 
contaa your local Siemens, Signetics/Phillips, or Intel sup- 
plier for an 8051 -family handbook. 
R.S.V.P, 



Russell Harris is an independcni consjliani providing engineeririg, fxogrmn- 
ming^ and technical documantation s«rvic«s la a vafiel)^ o( hdustital dlenls. His 
matnlnterastsltelnwriling and teaching, and In WMfKing wiff) embedded systems 
Inttielioldsotinstrumentationandmachlne control . He can be (eact>ed by phone 
at 713-461-1618. by mail at e60S Cedardale Dr., Houston, Texas 770S5, or on 
GEnie (address FUSSELL.H). 
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'llic following components are available from the Digi-Key 


Corporation, 701 Brooks Avenue South, Post Office Bcoc 677, 


mief River Falls, Minnesota 56701-0677, tefephorw 800-344- 


4539. 




Ul 


CD74HCT132F. 


L2 


CD74HCT3731i 


U4 


CD7.^HCI24'iE 


U6 


CD74HCT133E 


U5 


MM74HC133N 


. U11 


10232 or MAX232CPE 


R1,R4,R5 


lOKQ 


RPl 


Q9103 


112 


33Q 


K3 


150Q 


Yl 


X426 


Dl 


1N4148PH 


D3 


lN5009Pn 


D2 


P363 


Ql 


VNIOLP 


PBl 


P803OS 


The following components are awilable from JDR Micro- 


devices, 22^3 Samaritan T>rjve, San Jose, (California 95124, 


telephone 800-538-5000 or 408-559-1200. 


U3 


8031 


UIO 


82C55-5 


U7,U8 


HM43256LP-10 


U9 


27C256 or 2764 (see texO 


REGl 


7805T 


C1,C2 


SM-30 


C3,C4,C3,C6,C7,C8 Tl(>-25 


PI 


DB25S 
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MEET THAT DEADLINE 1 1 ! 

• Use subroutine libraries written for 
other languages! More efficiently! 

• Combine raw power of extensible 
languages with convenience of 
carefuUy implemented funictianst 

• Paster than optimized C! 

• Compile 40,000 linra per minute! 
(10 Mhz 286) 

• Ibtally interactive, even while 
compiling! 

• Program at any level of abstraction 
from machine code thru appli<»tion 
specific language eqiud ease 
and effidenqy! 

» Alter routines without recom pili ng! 

• Source code for 2500 functions! 

• Data structures, control structures 
and interface protocols from any 
other language! 

• bnpIementboTtowsdfiBatures, more 
efBcien% lihan in 1^ BoatceA 

• An architecture lihatsuppotrtesnan 
programs or full megabyte ones 
with a single version! 

• No byzantine syntax requirements! 

• Outperform the best prc^ammers 
stuck TuInK conventional languages! 
(But only imtil they also switch.) 

HS/FORTII with POOPS - The only 
full multiple inheritance 
interactive object oriented 
language under MSDOS! 

Seeing is believing, OOL's really are 
incredible at simplifying important 

parts of any significant program. So 
naturally the theoreticians drive the 
idea into the ground trying to bend all 
tasks to their noble mold. Add on 
OOL's provide a better solution, but 
only Forth allows the add on to blend 
in as an integral part oi^SoB Umguc^ 
and only HS/POBTH provides true 
multiple inheritance & membership. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherite: 

INHERIT> BODY 

HAS> ARM Ri^tArm 

HAS>AIUkCLeftArm 
If Simon, Alvin, and Theodore are 
robots we could conti'ol them with: 
Alvin 's RightAi-m RAIS@ or: 
+5-10 Simon MOVE or: 
+5 +20 FOR-ALL ROBOT MOVE 
The painful OOL learning curve 
disappears when you don't have to 
force the world into a hierarchy. 



WAKEUPlt! 

Forth need not be a language that 
tempts programmers with "great 
expectations", then frustrates them 
with the need to reinvent simple tools 
expected in any commercial languagd. 

HS/PORTH Meets Your Needsl 

Don't judge Forth by public domain 
products or ones from vendors 
primarily inttfvested in consulting - 
they profit from not providing needed 
todsl Public dotnsdn versions are 
ebesp - if your time is wcnrthless. 
Useflil in learning Forth's basics, they 
fail to show its true potential. Not to 
mention being s-l-o-w. 

We don't shortchange you with 
promises. We provide implemented 
functions to help you complete your 
application quickly. And we ask you 
not to shortchange us by trying to 
save a few bucks using inadequate 
public domain or pirate versions. We 
worked hard coming up with the ideas 
that you now see sprouting up in other 
Porths. We won't throw in the towel, 
but the drain on resources delays the 
introduction of even better tools that 
could otherwise be making your life 
easiei* now! Don't kid yourself, you ars' 
not just another drop in the bucket, 
your personal decision really does 
matter, bi return, well provide you 
with the best tools money can buy. 

The only limit with Forth is your 
own imaginationl 

You cant add extensibility te fbsralized 
compilers. You are at ihe mercy of 
that language's vendor. You can easily 
add features from other languages to 
HSAFOSTH. And using our automatic 
optimizer or learning a very little bit 
of assembly language makes your 
addition zip along as well as and often 
better than in the parent language. 

Speaking of assemble language, 
learning it in a supportive Forth 

environment virtually eliminates the 
learning curve. People who failed 
previous attempts to use assembler 
language, often conquer it in a few 
hours using HS/FORTH. And iJiat 
includes people with NO previous 
computer experience! 



BSfSGBSnS mm under 1ISD08 or 
PCDOS, or bom ROM. Each level indudes 
all features of lower ones. Level upgrades: 
$26. phiB price ditTereoce between leveb. 
Source code is tn ordinary ASCII text files. 

HS/FORTH supports megabyte and larger 
programs & data, and runs as lust as 64k 
limited Fortha, even without iiutomatic 
optimization -■ which accelerates to near 
assembler langaage speed. OptimiseT, 
aosemhler, and tools can. bad traiudeittly: 
Renze segmeats, redefine words, eliminate 
headers without recomplUi^. Compile 79 
and 83 Standard plus F83 programs. 

PERSONAL LEVEL $299, 
NEWI Past direct to video memory text 

& SKalecL'LEpped/windowedffraphics in bit 
Wit windows, mono, cgu, ega, vga, all 
ellipsoids, spline.s, bczior curves, arcs, 
turtles; lightning fast patmm drawing 
even with iri egular boundaries; powerful 
ptirsiag, Ibi-niidting, file and device I/O; 
DOS shells; interrupt handlers; 
call high level Forth from interrupts; 
ain^fle step Lraee, decompiler; music; 
compile -10,000 linos per minute, stacks; 
file search paths; format to strings, 
software floating point, trig, transcen- 
dental, 18 dijfit integer & scaled integer 
math; vara: A B * IS C compiles to 4 
words, L.4 dimension var arrays; 
automatic optimizer delivers natdiine 
code speed. 

PROFESSIONAL LEVEL $399, 

hard wan' Ho a ling point - data Structures 
for all fialu typfs from simple thru 
een^plox 41) vai' arrays - operations 
complete thi-u complex hyperbolics; 
turnkey, seal; interactive dynamic liriker 
for foreign subroutine libraries; round 
robin & interrupt driven multitaskers; 
dynamic string manager; iile blocks, 
sector mapped blocks; xS6&7 assemblers, 

Metacompjler; HOamOWOiredk/in^neti 
threaded systems start at 200 biytes, 
Fnth coies finm 2 kbytes; 
C data stmctnres & struct+ compiler, 
MetaOrai^ics 'nirboWndow-C libiaiy, 
200 grapMt/wlikdow fiiacttons, FiistScriiA 
style line attributes & fonts, viewports. 



ONIXNE GLOSSAK? 



94S. 



PROFESSIONAL and PRODUCHON 
LEVEL EXTENSIONS: 

FOOPS4- with multiple inheritance $ 79, 
TOOLS & TOYS DISK $ 7». 

286FORTH or 386FORTH $299. 

IG Megabyte physical address! space or 
gigabyte virtual for progran-.i arid data; 
DOS & BIOS fully and freely available; 
32 bit addioss/uperand rnnge with 380, 
ROMULUS HS/FORTH from ROM $ 99. 

Shippis^system: US; $9. Canada; $21. 
foreign: $49. We accept MC, VISA, & AniEx 



A Lesson in 
Economics 

Conducted by Russell L. Harris 
Houston, Texas 

Ed Zem lehies ihe tale of the ill-fated manufactuier, 
TatfiS, whkh attempted lo brancti out into ilic production of 
magnetic compasses of the son used by hunters, fishermen, 
and Boy Scouts. Unfortunately, Tates had no prior experi- 
ence in the manu^ctuie of compasses. Being unawaie of the 
piifalls and design subtleties inherent in this field of endeavour, 
Tatas management ptjurcd millions into product it jti and 
marketing, but almost nodiing into research and enginceririg. 
In appearance, the Tates compass was a thing of beauty. It 
wa.s nicely prn portioned, and apjxjared to Ix; wcil-crafted 
and ruggedly txiilt, ^'^;vcrt^ldess, for reasons now lost in the 
annals of hisiors', the design was flawed. Somctinies Ltie 
device worked peifecdy, giving an accurate indication; other 
times, without warning or indication that things were amiss, 
the compass would give readings seriously in error. 
Ouldoorsmen soon learned from personal experience tliat 
the Tates compass was not to be tmsted, thus giving rise to 
the saying, He who has a Tates is lost" 

A Matter of Misfeasance 
'fhe IBM-PC family, running under PC BIOS and MS- 
D0.5, has become pcrhap.s the most widely misapplied 
component in the field of real-time insinimeniation and 
control. Direct control of machinery by a PC is a practice 
fraught with many perils and considerable difficulty. 
Whether in ignorance or in deliherau' disregard of the 
body of facts and documented exfxjricnce presented by 
a multitude of authors in a variety of engineering publi- 
cations, programmers and newly emerging systems hou =;es 
daily foist upon their clients sy,stem,s in which ihc P(" is 
directly interfaced with "the real wndd." Often, it i.s not 
until a project has passed the point of no return that the 
fiill consequence of matters such as indeteiminate inter- 
rupt latency, bugs in BIOS, and bugs in DOS become 
apparent. 

Sometimes the PC is disguised by means of packaging. 
It seems that hardly a day goes by without the introduc- 
tion of another PC-compaUble slngie-tx>ard computer 
targeted at the embedded control market. Although such 
systems may utili:£e sulid-siate memory instead of a 
mechanical disk drive, they nonetheless possess the basic 
liabilities of the desktop PC. 

R>TthDinensions 



Penny -Wise, Pound rooUsh 
The IBM-PC/BIOS/MS-DOS environment lures the un- 
suspecting real-time user with the .siren call of cheap 
hardware, inexpensive software, and a seeming abLiridance 
of capable programmers. Not until one makes a detailed cost 
analysis, taking into account system lifetime, does the true 
cost become apparent. Moreover, industrial experience 
continues to demonstrate that commodity-grade C program- 
me rs armed with mass-marketed software packages are 
generally inei:^ in the realm of real time. 

Aside ffom illusory economies in the area of hardware, 
die basic impetus toward the IH.M-PC/BIOS MS-DOS envi- 
ronment is the elusive goal of automatonistic software 
creation. Viewing the variety of iriexpensive ma^marke^ 
MS-DOS software, one finds appealing tlie possibility of 
creating c\isioniii:ed software for a system simply by blindly 
combining a numt^er of off-the-shelf programs. 1 lowever, 
projects taking this approach repeatedly demonstrate that (1) 
ttic exfx;nse incurred in attempting to integrate general- 
purpose programs for which one is lacking tlic source code 
can easily exceed the cost of a tailor-made program, and (2) 
the resulting hodgepodge tends to be unieltable and full of 
arcane idio.syncrasies, in addition to alienations inherent in 
the IBM-PC/BIOS/MS-DOS platform. 

It is virtually impossible for a programmer lo have 
complete control of a system based on the IBM-PC/DIOS/ 
MS-DOS platform, for it is vimially impossible for a program- 
mer to gain access to the .source code for all the [Xjnincnt 
software and firmware modules. Moreover, the complexity 
of the platform precludes accurate prediction of system 
respoasc to real-time stimuli. Ihc situation is exacerbated 
when commercial software packages arc integrated into the 
system. 

When one commits himself to the IBM-PC/BIOS/MS- 
DOS platform, he enters an environment of continual 
change. Wliether from the standpoint of hardware or that of 
software, the window of availability in the PC world is short 
compared with the service life of typical industrial systems, 
Tbe high sales volume which drives down the cost of PC 
hardware and software both permits and encourages fre- 
quent redesign, in order to reduce manulacturing cost and to 
enhance performance. By comparison, common industrial 
components, such as relays, valves, and transducers, generally 
continue in prodiiaion without change for dozens of years. 

The problem is maintainability: alter a system incorporat- 
ing a PC has been in sendee a year or two, it may be very 
difficult to find replacement components which are compat- 
ible with the original PC hardware. Even if such components 
are available, they may not be compatiUe with the original 
software, apart from reconfiguration or modification of the 
software. If the original software cannot accommodate the 
available hardware, exiensive software modification may be 
required. If tlie software iias been integrated from a nuxnber 
of commercial software padcages and one or more of these 
must be updated, the pKigi ammer must again deal with the 
same problems ol software/software and software/ loardware 
compatiNIity he &oed in patching together the original 
system. 

CBadiBumer' amtlrmm onpt^js.) 
I January 1993February 



CALL FOR PAPERS 

for the fifteenth annual and the 1993 

FORML CONFERENCE 

The ohginal tedmical confeFence 
for piof essional Forth programmers, managers, vendors, and risers. 

November 26 - November 28, 19^ 

(following Thanksgiving) 
Asilomar Conference Center 
MonteT^ Peninsula overlooking the Pacific Ocean 
Pacific Grove, Califamia U.S. A. 



Theme: Forth Development Environment 

Papers are in\'itGd that address relevant issues in tlic establishment and use of a Forth Development 
Environment Some of the areas and issues that will be looked at consist of Networked Platform 
Independence, Machine Independence, Kemd Independence, Development System-Applicatian 
System hidependence, Muman-Meidiine Interface, Source Management and Version Control, Help 
Facilities, Editor-Development Interface, Source and Object Libraries, Source Block and ^CH Tesct 

I Independence, Souroe Browsers (induding Editois, Tiee Displays and Source Database), Run-Ume 

I Browsers OndudingE>elwggersaruiDeccmpilers), Network^ 

I 

Additionally, papers describing successful Forth project case histories are of particular interest. 
Papers about oflier Forth topics are also welcome 



Mail abstracts of approximately TOO v^^ords by Septe m ber 1. 1993 . 
Completed papers are due November 1, 1993 . 
We anticipate a full conference this year. 
Priority wiU be given to paiHcipanfs who submit papers. 



John I Ml, Conference Chairman Robert Reiling, Conference Director 

Information may be obtained by phone or fax from fhe 
Forth Interest Group, P.O. Box 2154, Oakland, California 94621. 510-893-6784, fax 510-535-1295 
This oonfa^ce is sponsored by FORML, an activity of the Forth Interest Group, Inc. (FIG). 

The Asilomar CkjnferenoeCentercombinesexcellentmeeting and comfortable Hving 

withsedudcd forests on a PadficOcean beach. Registration indudes use of conferencefadlities, deluxe 

rooms, all meals, and nightly wine and cheese parties. 



